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You deserve the best. You've earned it. Now reward yourself with a session of Night Mission PINBALL, 
the most realistic and challenging arcade simulation ever conceived! ■ Stunning graphics and dazzling 
r^lP^ ,^ A sound effects put Night Mission PINBALL in a class by itself. Game features: multi- 
r ■"rIBl''''" I ^^ ''^" ^"'* multi-player capabilities, ten different professionally designed levels of play, 
' ^ lip''* * 4 ■^'l' ^"'^ ^" editor that lets you create your own custom modes. ■ So take a break with 
I ' ip7°'3 I f. Night Mission PINBALL from SubLOGIC. Winner of £/ecffon/c Games magazines 
■^1^- AH I 1983 Arcade Award for Best Computer Audio/Visual Effects. 
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his month it begins— the most exhaustive cov- 
erage of the Commodore 128 you'll find in any 
computer periodical. Morton Kevelson starts 
out with an overview (and inner view) of the 
machine, its BASIC 7.0, and a guide to displaying 80 
columns with a 1702 monitor. Next month it's on to 
the 1571 disk drive, along with a detailed look at the 
C-128's keyboard. But don't feel obliged to rush through 
the rest of this page— the article will wait. After all, 
you're the guest of honor at our Opening Ceremonies 
for the Commodore 128. (Turn to page 29.) 

Another important beginning this month: our Cadet's 
Column, wherein Cheryl Peterson will start at square one 
for all beginning users of the Commodore 64. Future col- 
umns should provide interesting reading for advanced 
users as well (such as planned features on copy pro- 
grams and computer fiimiture). (TUm to page 79.) 
And while we're in a birthgiving mood, we'd like 
to announce the forthcoming debut of still another reg- 
ular feature. See the information regarding our pro- 
gramming tips column on page 41. 
That's enough new beginnings for now. Let's return to 
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the tame stuff we present every month— the finest lineup 
of Commodore- related features and Commodore-com- 
patible programs available between two covers. 

Proving that through ingenious programming. Commo- 
dore computers can do almost anything that the higher-end 
home machines can, Thomas Bunker's Mndows on the VIC 
and 64 allows you to rope off portions of program screens 
for help messages and the like. (Turn to page 36.) 

Marie E. Coon relieves you forever of the tedium of writ- 
ing print statements with Formatter, a C-64 program that 
will generate program lines that exactly reproduce any screen 
full of text, graphics, or combination thereof. (T\im to page 13.) 

Selectachrome by Simon Edgeworth (author of last 
month's Printat) provides a means of trying out differ- 
ent combinations of border, screen, and text colors with- 
out entering time-consuming conunands. (TVim to page 17.) 

Alfred J. Bruey's Screen Dump Routine, while not in- 
novative, is short and handy. (Ibm to page 46.) 

In the games department, Barbara Schulak's Disintegra- 
tor compels you to defend eight underground silos from 
an enemy that descends with machine language speed. CI\im 
to page 17.) And James Sanders' Gators N Snakes offers 
graphics so realistic they're repugnant. (Turn to page 41.) 

In the May edition of Creating Your Own Games on 
the VIC and 64, Orson Scott Card related an anecdote 
about some programs presented to him by Walter Meyers, 
a professor at North Carolina State. One of the very pro- 
grams described in that column appears in this issue: 
Fidgits, an alphabet tutorial for the C-64. (Tbm to page 39.) 

Of course, Orson Scott's popular column appears in this 
issue as well. What the rather ridiculous title Sputter Pop 
Hiss Chop Flap Crash Slurp Mash boils down to is a tu- 
torial on incorporating sound effects into your original game 
programs, including seven short sound effects programs for 
the 64 and five for the VIC 20. CRim to page 18.) 

Backing Orson Scott up this month is Bruce Bartlett, 
whose Sound-A-Bama offers a menu fiill of interesting 
sound effects to play on the 64. (Tiim to page 27.) 

This issue marks Dale Rupert's temporary departure 
ftom mainstream programming into a subject area seldom 
delved into by computer magazines: simulations of real- 
life phenomena on a Commodore 64, begiiming with Rill- 
ing Needles and Shared Birthdays. (Ibm to page 53.) 
And your assembly language education continues with 
the first of two editions of Commodore Roots devoted 
to assembly language addressing. (TUm to page 73.) 

This issue also marks the departure of managing edi- 
tor Bob Sodaro, who has decided to trade staggering out 
of these offices at 9 p.m. every night for a lucrative free- 
lance writing career. Who can figure that? Still, our very 
best to Bob. 

And between these covers -our very best to you! 

—David AlUkas 
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By Cheryl Peterson 

SoftCon, Atlanta, 1985. A dream of industry gurus 
singing the praises of an ever-expanding market and aisles 
of the latest software releases. A Commodore user's fan- 
tasy! Surely the "shakeout" couldn't touch a computer with 
a user base of several million. 

The nightmare I found instead sent me home a day 
early, my dreams dashed by disheartening piracy figures, 
dire predictions, and the "why bother?" attitude of many 
exhibitors. 

My bad experience is not important, but you should 
know that as a viable market, we've been written off. 
The opening panel discussion dismissed us as being non- 
existent. Millions of home computerists were summed 
up and casually discarded like an old dog-eared hat. 

"Oh, home users. There's no such thing. There are peo- 
ple who use computers at home for small business and 
educational purposes, but outside of that, forget it. There 
really isn't a "home" market; there never was. Let's face 
it, there's nothing left to sell. Most home computer own- 
ers have tossed their machines in a closet and given up." 

Of course, this is paraphrased, but it accurately re- 
flects the opinions of Mitch Kapor, president of Lotus 
Development Corp., and John Sculley, president of Ap- 
ple Computers. Sculley pointed out that because so many 
Apples are used in schools, they aren't being relegated 
to closets. 

Although Esther Dyson pointed out that Jack Tramiel 
would probably have felt differently, she also agreed with 
the others. As editor of a business-oriented newsletter, 
it wasn't surprising that she would so easily write us off. 
Fred Gibbons, a last minute substitute for Tramiel and 
president of Software Publishing Corporation, marketer 
of the fre series, wouldn't stand up for us either. Of the 
four, though, he seemed most inclined to give us the bene- 
fit of the doubt. 

And where was our "white knight?" His apology, posted 
in the press room, said only that he had another more 
pressing commitment. Tramiel, once the driving force 
of Commodore and now President of Atari, doesn't seem 
convinced that home computers are outdated. Instead, 
his newest ventures at Atari appear to be higher level com- 
puters at home market prices. (See Scuttlebutt section 
of April Ahoy! for details.) 

The dismal opening discussion wouldn't have caused 
me concern, except for the dearth of Commodore soft- 
ware among exhibitors. As a sales vehicle for software 
companies, SoftCon should have overflowed with ven- 
dors and programmers hawking their wares. It did! Un- 
fortunately, everyone vras driving an Apple or IBM. 

Out of several hundred booths, less than a dozen had 
Commodore software. Of these, all but three were sell- 

Continued on page 114 
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C-64or 154! Drive ... ea. $5 1702 Monitor $10 
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Computer Warehouse Presents: 

THE TWO 
COMMANDMENTS 

THOU SHALT NOT WASTE THOU SHALT NOT WAIT 



At Computer Warehouse you can buy hard- 
ware, software, and accessories for less. Just 
check our prices below for yourself. 

The fact that we're one of the nation's largest 
mail order sources gives us an advantage over 
our competition, and we pass real savings on 
to you. 



We not only sell for less, but we ship out 
your orders within 48 hours. And we even have 
a toll-free number so you can call your orders in 
at no charge. 

Low prices, fast delivery. Computer Ware- 
house. Thou Shalt not buy anywhere else. 



PRINTER INTERFACES 

CardcoG+ $69.95 

Cardco B $49.95 

Tymac Connection . . . $89.95 

Uniprint $59.95 

Axion Parallax CD . . . $79.95 
Turbo Print $79.95 

MODEMS 

Westridge 

Automodem $69.95 

Mighty Mo $79.95 

Modem 300 (1660) . . . $79.95 

MPP 1064 C64 $79.95 

Total Telecommu- 
nication $59.95 

PRINTERS 

Commodore 801 .... $169.95 
Commodore 803 ... $169.95 

(tractor feed 

option) $ 29.95 

Commodore DPS 1101 

(Daisy Wheel) .... $299.95 
StarSG-10 $224.95 



Panasonic 1090 
Panasonic 1091 
Citizen MSP-10 . 
Axion Elite 5 

(Daisy Wheel) 
G.E. Printer 



$249.95 
$299.95 
$329.95 

$275.95 
$219.55 



MONITORS 

1702 Color $199.95 

Gorilla (green) $ 79.95 

Gorilla (amber) $ 89.95 

Sakata color $179.95 

DISK DRIVES 

MSD Dual Drive $499.95 

MSD Single Drive . . . $289.95 

1541 (C64) $179.95 

Indus GT $234.95 

SOFTWARE 
Word Processors 

Paper Clip (w/spell) . . $79.95 
Word Pro 3 + (64) ... . $39.95 

Write Now $39.95 

Script 64 $39.95 



Data Bases 

Superbase 64 $59.95 

The Consultant $79.95 

Practifile $29.95 

Spread Sheets 

Practicaicll $49.95 

Swift Calc $59.95 

Calc Kit $39.95 

Utility Software 

Print Shop $34.95 

Fast Load $29.95 

Mail Now $32.95 

Floppiclene Head 

Cleaner $14.95 

Mach 5 $24.95 

We also carry a full line oi Commodore 
Hardware. Software and accessories. 



Add 3% for shipping and handling charges- 
Ad prices relied 3% casti discount. Credit card 
orders should add 3%. Prices subject to change 
without notice. 
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Navarone's three-slot expander can save wear and tear on your cartridge port. 
READER SERVICE NO. 200 



THREE-SLOT EXPANDER 

Navarone Industries, longtime 
manufacturer of a cartridge expand- 
er for the TI-99/4A (remember that 
one?), has made the same three-slot 
unit available for the C-64, enabling 
the user to shuttle between cartridges 
at the press of a button. Also includ- 
ed is a computer reset switch. Price 
is $24.95. 

Navarone Industries, Inc., 19968 
El Ray Lane, Sonora, CA 95370 
(phone: 209-533-8349). 

VIDEO DIGITIZER 

Joining Computereyes (see April's 
Scuttlebutt), the first video acquisi- 
tion system for the C-64, is Cardco's 
Digi-Cam. The package consists of 
digitizer (which connects directly to 
the C-64), software, cables, and a 
I^asonic monochrome camera with 
12mm lens, all for S250. The image 
produced can be viewed on your 



monitor, stored on disk, transmitted 
by modem, or printed. 

Acquisition time for a 320 x 200 
dot screen image in five gray scales 
is 3 seconds. Included is a version of 
Cardco's Paint Now software to allow 
manipulation of the image. Word pro- 
cessor or light pen figures may also 
be applied. 

Cardco, Inc., 300 S. Topeka, 
Wichita, KS 67202 (phone: 316- 
267-3807). 

SPREADSHEET PRINTER 

Sideways, which enables IBM and 
Apple users to print an entitle spread- 
sheet vertically (and hence of any 
width desired), will be published for 
the C-64 and C-128 by Timeworks for 
use with all major brands of Commo- 
dore-compatible spreadsheets. Addi- 
tionally, the program will be incor- 
porated into Timeworks' own Swift- 
calc. Price of the 64-compatible 5/^- 



ways will be $29.95; Swiftcalc with 
Sideways, $49.95. 

Timeworks, 444 Lake Cook Road, 
Deerfield, IL 60015 (phone: 312- 
948-9200). 

EDUCATIONAL PROGRAMS 

The 200-plus word vocabulary, 
speech synthesis capability, and ani- 
mated letters of Talking Teacher com- 
bine to instruct two to eight year olds 
in the alphabet, spatial relationships, 
and placement of letters on the key- 
board. For the C-64; $34.95. 

Imagic, 2400 Bayshore Frontage 
Road, Mountain View, CA 94043 
(phone: 415-940-6030). 

Speller's Duel enables two players 
to compete in a TV game show for- 
mat, racing to spell words from five 
preprogrammed lists (for 5th, 6th, 




Sideways prints spreadsheet vertically. 
READER SERVICE NO. 201 
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7th, and 8th grades, plus Super Chal- 
lenge). For the C-64; $24.95 plus 
S2.00 shipping, 

J.M. Pizzuti Co., P.O. Box 1077, 
Sequel, CA 95073. 




A real-time solar system simulation. 
READER SERVICE NO. 202 



Three releases for the C-64 from 
Mindscape: 

The Halley Project: A Mission in 
Our Solar System ($44.95) seeks 
players who qualify for the top se- 
cret project by completing a series of 
navigational tests in an authentic 
space simulation. The tests and ob- 
stacles help players master basic facts 
about the solar system, including de- 
tails on Halley 's Comet, gravity, at- 
mospheric conditions, orbital motion, 
location of constellations, and eclip- 
ses. The program is a real-time sim- 
ulation, meaning that every planet, 
star, or moon depicted moves at the 
same rate and in the same orbit or 
pattern as in our solar system. Atari 
version is included on flip side. 

Mr. Pixel's Game Maker ($29.95) 
lets children play several example 
games, write simple programs that 
change the actions of the characters, 
or use conditional ("if-then") logic 
statements to change or establish 
game rules. The program can be used 
in conjunction with Mr. Pixels Pro- 
gramming Paint Set and Mr. Pixel's 
Cartoon Kit. 

Color Me ($29,95) allows young 
children to design their own pictures, 
coloring books, and stickers on the 
computer screen and then print them 
out. A Color Me Supply Box ($9.95), 
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containing buttons, color printing pa- 
pers, and adhesive-backed sticker pa- 
per, and Color Me Picture Disks 
($9.95 each) will be sold separately. 

Mindscape Inc., 3444 Dundee 
Road. Northbrook, IL 60062 (phone: 
312-480-7667). 

The Success With Reading book/ 
software series will teach children 
reading via the Cloze technique, 
wherein students read and complete 
passages from which certain letters 
or words have been omitted. The four 
grade-specific packages (3 through 
6), which sell for $49.95 each, must 
be used with the core package 
($79.95). For the C-64. 

Scholastic, Inc., 730 Broadway, 
New York, NY 10003 (phone: 212- 
505-3410). 

In Willy's \M)rd Hbrks, students di- 
rect a bouncing wallaby along sen- 
tences, depositing words in the cor- 
rect part-of-speech pockets. The 
$65.00 price includes teacher's disk- 
ette plus one of three student disk- 
ettes: Willy's Workout (elementary). 
Pocket Pitfalls (junior high), or Ro- 
ver's Revenge (senior high to adult). 

Sunburst Communications, Inc., 
39 Washington Ave., Pleasantville, 
NY 10570 (phone: 800-431-1934 or 
914-769-5030). 
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Turtle Tutor: A First Course in 
Logo, designed for use by both chil- 
dren and adults, teaches movement 
of the triangular "turtle" cuRor by 
means of five games. Users move 
from elementary to more sophistica- 
ted commands, starting with match- 
ing and duplicating shapes displayed 
on the screen and progressing to us- 
ing the fijll range of Logo commands 



to create original designs. Commo- 
dore Logo is required. For the 64; 
$44.00. 

DLM Teaching Resources, One 
DLM Park, Allen, TX 75002 (phone: 
214-248-6300). 

Four C-64 releases for children 4 
to 6 from Grolier Electronic Publish- 
ing, each $29.95: 

The Story of Miss Mouse teaches 
the meaning of rhyming words 
through picture clues and color-coded 
typewriter keys. 

Rhytne Land provides eight educa- 
tional games that reinforce the con- 
cept of rhyme and provide 101 vocab- 
ulary words. 

First Steps to Reading -Phonics 
Fun I and II teaches initial and final 
consonant sounds and their associa- 
tion with letter symbols, as well as 
the concept of spelling. 

Exploring Your World consists of 
two programs: Me and Others, which 
explores the concepts of self and fam- 
ily, and teaches names of body parts 
and clothing; and Vie Weather, which 
covers vocabulary, concepts, and 
dress related to the weather. 

Grolier Electronic Publishing, Inc., 
95 Madison Ave., New York, NY 
10016 (phone: 212-696-9750). 

The price o^ Lovejoy's Preparation 

Color Me 
Picture Disks 
(sold separ- 
ately) feature 
Rainbow 
Brite, Shirt 
Tales, Hugga 
Bunch, and 
Tink.'Tonk! 
characters. 
READER 
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for the SAT was incorrectly listed in 
the April Scuttlebutt as $8.95. That, 
of course, is the price for the well- 
known paperbound volume. The 
price of the C-64 program of the 
same name is $69.95. 

Simon & Schuster Electronic Pub- 
lishing Group, 1230 Avenue of the 
Americas, New York, NY 10020 
(phone: 212-245-6400). 
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Computerided aid -but not for $&95. 
READER SERVICE NO. 204 

LOW-COST ASSEMBLER 

Robin's Software has made their 
lEA Editor Assembler, consisting of 
disk plus looseleaf manual, available 
for $5.00 plus $2.00 postage (previous 
price was $19.95). As if that weren't 
generous enough, Robin's offers free 
help with 6502/6510 assembly lan- 
guage via their hot line: 612- 
829-0483 (5-10 p.m.). 

Robin's Software, 10349 Zinran 
Circle, Bloomington, MN 55438. 

C COMPILER 

The first ftill C compiler for the 64, 
Super C is a complete development 
system that produces 6510 machine 
code. Its editor handles source files 
up to 41K in length. The linker ac- 
cepts up to seven modules and the li- 
brary supports standard as well as 
Commodore-oriented functions. 

Abacus Software, 2201 Kalamazoo 
S.E., RO. Box 7211, Grand Rapids, 
MI 49510 (phone: 616-241-5510). 

EXPERT SYSTEM 

Purportedly the first expert system 
for the C-64 and C-128, XPER allows 
the user to first build information into 
his database using the program's sim- 
ple loading procedures, then use its 
searching techniques to guide himself 
through complex decision-making 
criteria. Full reporting and data main- 
tenance capabilities are included. 

Abacus Software, 2201 Kalamazoo 
S.E., P.O. Box 7211, Grand Rapids, 
MI 49510 (phone: 616-241-5510). 



NEW GAME RELEASES 

Activision will build QuickDrive, 
a software feature that speeds load- 
ing of a C-64 diskette by over 400%, 
into future game releases, including 
the following: 

To obtain the fabled power and 
riches of the jeweled throne of Alca- 
zpr: The Forgotten Fortress, the play- 
er must traverse an enchanted land 
fiill of ancient castles, each contain- 
ing tools indispensible to his quest, 
but guarded by griffins, genies, and 
the like. 

In your attempt to halt the Count- 
down to Shutdenvn at the world's larg- 
est power plant, you direct your eight 
androids through the facility's 2000 
rooms and deadly automated defense 
systems to find and repair the power 
core. 

Participants in The Great Ameri- 
can Cross Country Road Race (pre- 
announced in the March Scuttlebutt) 
must plot a winning route, referring 
to a detailed US map and account- 
ing for terrain, weather, and traffic. 
Gear shifting, fuel stops, engine 
maintenance, and quick driving re- 
flexes are required along the way. 

QuickDrive will also be incorpor- 
ated into the previously announced 
Web Dimension, Master of the Lamps, 
Rock N'Bolt, and The Music Studio. 

Activision, Inc., 2350 Bayshore 
Frontage Road, Mountain View, CA 
94043 (phone: 415-960-0410). 

Mr, Golf for the C-64/C-128 in- 
cludes an 18 -hole course, each hole 
with its own positioning of hazards 
like trees, water holes, and sand traps. 
Flight path of the ball is altered geo- 
metrically when hazards are encoun- 
tered. A course design package uses 
icons to allow creating, deleting, and 
positioning greens, tees, hazards, and 
more. Joystick is required. Price: 
$19.95 tape, $22.95 disk. 

APCAD Software, P.O. Box 2673, 
Ann Arbor, MI 48106. 

Scheduled for November release. 
The Kobiashi Alternative is the first 
interactive fiction game based on Star 
Trek. The program feaUires a person- 
ality database for all the most famil- 
iar characters. The player assumes 
the role of Kirk, leading the Enter- 
prise on a quest to discover and neu- 



tralize the Bermuda Triangle of space. 
For the C-64; $39.95. 

Simon & Schuster Electronic Pub- 
lishing Group, 1230 Avenue of the 
Americas, New York, NY 10020 
(phone: 212-245-6400). 

The four latest war games for the 
C-64 from SSI: 

Six Gun Shootout, a simulation of 
Old West-style man to man combat, 
lets one or two pliers choose up to 
10 different scenarios of historical 
gunfighting, or fictional setups. 
Knives, tomahawks, rifles, shotguns, 
pistols, and 13 other types of weapons 
may be used. Price: $39.95. 

Wings of \Mir lets advanced war- 
gamers choose from among 36 fe- 
mous fighters or bombers, using up 
to 16 in each battle. Planes are rated 
for firepower, speed, maneuverability, 
and other factors. Five scenarios are 
included: air race, V-1 flying bomb 
intercept, night fighter, bomber for- 
mation intercept, and dogfight. Price 
of $39.95 includes two mapboard 
charts and three player aid charts. 

Mech Brigade pits Soviet and 



o SECURfTY AND % 

o CONFIDENTIALITY o 

O Two very important words to us all. O 
O Without them, our inner most thoughts o 
Q would Oe thrust into the public limelight, q 



O 



^ Ve(, millions of people go about each 
Q day entering personal or company re- 
Jr cords into their computers. In most 
^ cases, after this Information has been 
O transferred to diskettes, cassettes, or 
O databanks It can be react by anyone hav- 
O ing a little bit of computer know how. 
Q Many companies and Individuals have ^ 
O been dealt Irrepairable harm through the q 
Q leakage of highly confidential material. 

PROTECT YOUR INFORMATION FROM 
UNAUTHORIZED DISCLOSURE WITH THE 

ALSOFT 
SECRET SOFTWARE PACKAGE 

This amaisng New Package includes 3 programs; 
SECRET SEQUENTIAL: Scramble any disk ssquen- 
iial lile (up to 330 blocks) from ar>y program. 
SECRET DIARY: Keep a diary ot your daily altaiis 
Ihal only yoj can read. 

SECRET ACCOUNTS: Tracks 40 accounis, secret- 
)y. Haidcopy Printouts on any properly Interfaced 
printer. 

Versions are availabte for ttie Commodore "CSi" 
or !he "Plus f models (tpvclfy) It is lully menu 
driven and easy to use. offering complete secrecy us- 
ing password prosection Data is not simply "Covere* 
Up" by a password, but is completely chianged from 
beginning lo end. ensuring ttiat your file cannot be 
read tjy persons (inclgdng hackers) not knowing tfie 
correct password. Unique 240 ctiaracter password 
capability proviOes for over i.O + E400() lollowed&y 
400 zeros) different passwords combinations. 

Available on Otsk or Cassette (PImi Sptcltf) 
fOf ONLY $29. 9S 

Send check or Money Ofder lo 

ALSOFT 

P.O. BOX 164, Clairton, Pa. 15025 

COMMODORE. C.64 and PLUS 4 are trademarks ol 

CommcKJote Electronics. 

THIS ALSOFT SOFTWAHE IS FULLY COPYABLE 
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NATO forces against each other in a 
time period spanning from the 1980's 
to the 1990's. Over 45 different ve- 
hicles can be employed, as well as 
guided missiles, helicopters, and 
smoke. Four scenarios are included, 
plus the capability to create an infin- 
ite number of original ones. Price; 
$59.95. 

Fighter Command recreates the air- 
war portion of the 1940 Battle of Bri- 
tain, as the full 34-day campaign, 
three medium-length games, or a fast- 
paced Eagle Day assault. Each Brit- 
tish and German squadron is rated for 
pilot experience and morale, with re- 
calculation after each mission. Play- 
er aid cards are included. Price is 
$59.95. 

Strategic Simulations Inc., 883 
Stierlin Road, Bidg. A-200, Moun- 
tain View, CA 94043-1983 (phone: 
415-964-1353). 

Datasoft will introduce five new 
Commodore 64 games this fall: 7?!^ 
Goonies (based on the upcoming 
Steven Spielberg film), Zorro, Alter- 
nate Reality, Pole Position II, and 



/VEW 



FOR 

COMMODORE 

64 / 128 



[}[]0ME ^wyj 
J NFORMATION 

\\h\ANAaEMENT 

Iystem 



LAXg^ 



IHTEBRHTED HOC DATA MANAeER aith HtMDOWS, 

CM SCREEN CflLCULflTOR, mna CM-ENOAA. 

HOME ChECKBOOK Maintain* Mjlttpl* accouots 

for qukck and aaay analyaia. 

HOtlE ADDRESSBdOK up to 200 racord* of 

Bailing data with avarch and lab*l opt k on* 

HOne IHVENTORV provld** valuabl* propmrty 

intaraatiem r*cal 1 and analyata. 

AVAILABLE OH DISK OM.Y. . . m29.1S 

CMEOt/nONEV DRDER • «3.00 SHlFflUB. 

NEM VORK RESIDENTS ADD SALEG TAX. 

WTTO sOFTWARE 

P.O. BOX 326 
CAMBRIA HTS.N.r.tl4ll 
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TeleMAX: for Spikes, surges, noise. 
READER SERVICE NO. 205 

Elevator Action. 

Datasoft, 19808 Nordhoff Place, 
Chatsworth, CA 91311 (phone: 818- 
701-5161). 

Mindscape will hold a contest in 
conjunction with The Dolphin's Rune: 
A Poetic Odyssey, in which the player 
assumes the role of a dolphin in or- 
der to locate and negotiate color cur- 
rents and search seabeds for runes. 
Each rune unlocks hieroglyphics, en- 
coded stanzas of dolphin lore. Nine 
such odysseys will yield nine stanzas 
of a poem. The first player to under- 
stand the poem, its dolphin lore, and 
the location of the secret wins the 
contest. Further contest details are 
available with the software, which is 
available (for the C-64) for $29.95. 

Mindscape Inc., 3444 Dundee 
Road, Northbrook, IL 60062 (phone: 
312-480-7667). 

TELECOM NEWS 

The Information Connection is 
aimed at teaching the beginner the 
ftindamentals of tying into services 
like CompuServe and The Source. A 
tutorial simulates an online session 
wherein the user can practice search- 
ing for information; an actual tele- 
communications program permits the 
sending of electronic mail and mes- 
sages to any online utility or BBS. In- 
formation may be dumped to any 



printer. Available in September for 
the C-64 and C-128; $59.95. 

The Intelligent Choice in Data 
Cotmnwiicatiotts, a brochure describ- 
ing the USRobotics line of modems 
and telecommunications software, is 
available free by writing USRobotics, 
Inc., 1123 W, Washington Blvd., Chi- 
cago, IL 60607 or calling 1(800) 
DIAL USR. 

The TeleMAX 4 telecommunica- 
tions surge and spike suppressor and 
noise filter helps eliminate power, 
telephone, and telecommunication 
line disturbances that cause loss of 
data. Line protection is provided on 
the four AC receptacles and two RJ- 
45 RJ-11 compatible phone jacks. 
Price: $129.00. 

Panamax, 150 Mitchell Blvd., San 
Rafael, CA 94903 (phone: in CA 415- 
472-5547; rest of US 1-800^72-5555). 

LIGHT PEN, LIGHT PRICE 

The Sure Light Pen for the C-64 
and VIC 20 includes a high speed 
screen locator, a "game pak," and a 
tutorial for writing your own light pen 
programs. Price is $22.95. 

Creative Enterprises, P.O. Box 
2477, Big Bear City, CA 92314. 

SMALL BIZ ACCOUNTING 

Design^l for the small business us- 
er. Accountant, Inc. comprises Gen- 
eral Ledger, Accounts Receivable, Ac- 
counts Payable, and Inventory pro- 
grams. It generates 35 different re- 
ports including an Aging, a List of 
Payments, and monthly statements of 
Account Activities. For the C-64; 
$59.95. 

Softsync, Inc. , 162 Madison Ave. , 
New York, NY 10016 (phone: 212- 
685-2080). 

FLOPPY PHYSICIAN 

For the hypochondriac in all of us, 
EMED, the Electronic Medical Data- 
base for the C-64, contains informa- 
tion on over 460 diseases and 325 
symptoms. It's possible to search/re- 
view and see all diseases for a symp- 
tom, or all symptoms for a disease. 
Included is a di^nostic program that 
lets the user select applicable symp- 
toms, then displ^s the most probable 
diseases. On disk; $29.95. 
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DMC Software Co., Rt. 1, Box 
364, Clinton, LA 70722. 



Extra-wide 

MicroUne 193 

supports 

spreadsheet 

applications of 

up to 233 

characters per 

line, at a price 

of $200 higher 

than that of the 

narrower 192. 
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in a lunchbag-style package to stress 
its no-nonsense, easy-to-use nature 




OKIDAJA PRINTERS 

The Microline 192 and 193 (wide- 
column) printers offer three different 
print modes, re-inking cartridge rib- 
bon, an 8K buffer, hi-res correspon- 
dence quality mode, and a noise rat- 
ing of 58 DbA. Priced at S499, the 
192 comes with an adjustable pin feed 
mechanism; the 193 ($699) has a 
tractor feeder 

Okidata, 532 Fellowship Road, Mt. 
Laurel, NJ 08054 (phone: 609- 
235-2600). 

LET YOUR FINGERS DO 
(LESS OF) THE WALKING 

In an eight-hour day, claim the 
manufacturers of DV Typer, a 
DVORAK typist's fingers travel 1 
mile, compared to 16 miles for a typ- 
ist on the standaid QWERTY key- 
board. Hence their program that con- 
verts the C-64 keyboard to the 
DVORAK layout via software and 
durable overlays with dual (DVORAK 
and QWERTY) markings. DV Typer 
keeps records of WPM progress for 
one or more individuals learning 
DVORAK, has a QWERTY typing 
option, and can be exited so that 
other programs can be used with the 
DVORAK layout. C-64 disk, keycap 
overlays, and 22 -page typing manual 
are $34.95. 

Prelco, 14202 Galy Sti^t, TXistin, 
CA 92680 (phone: 714-544-3041). 

BROWN BAG SOFTWARE 

The Brvwn Bag integrated database 
and word processor comes packaged 



and its brown bag price of $49.95. 
Features include online help, merging 
of text and data between modules, 
and eight commonly used database 
templates. 

Software Resource Group, Inc., 
1095 Airport Road, Minden, NV 
89423 (phone: 702-782-9731). 

PERFECT DRAW 

The Perfect Draw graphics design 
software will allow users of the Per- 
fect Writer word processor to create 
and add-a variety of illustrations and 
stylized text to their documents, with 
up to 128 colors for the C-64 and 128. 
The program is compatible with in- 
put devices such as joysticks, graph- 
ics tablets, and light pens. $50.00. 

Thorn EMI Computer Software, 
Inc., 1881 Langley Ave., Irvine, CA 
92714 (phone: 714-261-6600). 

PROMAL UPGRADE 

PROMAL Version 1.1, available to 
registered owners of Vereion 1.0 (re- 
viewed in the June '85 Ahoy!) for 
$5.00 plus $2.50 shipping, corrects 
various reported problems and adds 
an ML subroutine interface and 
methodology for accessing Kemal 
routines, a diskette utility for back- 
ing up files, and support for the 
RS-232 interface, relative files, and 
assorted ftinctions like ABS, SEN, 
COS, TAN, and ARCTAN. Price is 
$99.95 plus $5.00 shipping. 

Systems Management Associates, 
Inc. , 3325 Executive Drive, P.O. Box 
20025, Raleigh, NC 27619 (phone: 
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BETTEK KEYBOARD UnUTY. 

A xtmplT «l*tf<m( lolutlon — blaiOt ""dwcil 
Etwvhi" gtv* YOU th* }c*tt»aid commandi 
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BETTER DUST PROTECTION 
FOR VIC ft COMMODORE 

Chocs* an uHiucUv* atotkr'fr** cov*i (ot 
feur h*rboard, monifor or complvtv SYVlvm. 

Don I conlu&fll^cie dlirai.li>^<:av^ii wilicrie«piiaTic Mii-fl 

Ci«4t pi4tl>c cQvfiFs ^>i«>e HjiCiuEC cokirri ai* cuitOEnhEiKi 
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diivp cowr 1*8 951, d«* wi 

CDv«i^*7K| Printer c4v«4» 

iBpeci^V lvp«j S12H 



$7.95 . $12.95 




We Can Solve All Your 
Commodore Color Problems 

Unlquf ProKii«m Solvtis toi Oldfli Conunodor* 
(wtth « Pin Honttor Din Plug). 

Tn* lnlir1«i*rKa Sloppai k. ^leA K>X Tn*l iTi&Ti1l& m 
nimuit'-j AiHi f* r-i" (,i,' ^..lL'l(.>f <(^ncci>tdi:» a»i ifliuH* 

""'"■""■'"™ S15.95 

rh* Cottt Sharp«A«r Uu ii your oiafi4 i« nooiiM ut 
lo A TV Just cJufl inlB the monitoi plijrq arxl th* colo' -tna 
COriliAtl iiTir(>)!i]iAli!l^ improve DrjmjticAti^ criip it^lIiK-j 

="""'""■" S18.95 

Thf HEW CtriDf ShiqMiMf CABLE Use >r youf old 64 ti 
tMwketr up 10 a mon.io» A nnw ? finjng coWe, mlh m Colm 
Stijipen^i Duiit m loi vou' (noftdoi ma.« m^m 

524.90 

Th» MoniiDT -linpMHW" H you nave a CommoaoFP ' iO i 
momiioi mu C4t)ie +3 {>rt)ngt fltrea yOu J W-clurc irou n;vi • 
li«i+p«i«- fi«itei iMjin inec«&fr CofTimodfjfri DuUT iAi'v 
fKWiks |/our old 6* 10 in* 1^02 1 e«»*l Oc 



RESET SWITCHES 

2 Vtmons lor Ev^rf H»*d 



,59.95 



Vaiiwn 3— ill* in snif ComrtKHMrt A^ic^tion A %|;,-, ..■ 
butltrwd no* Ihiti rt'^iofi inal .Oiug^ .n q>ie« ct i r pm 
nf!cl'>or> Itidt ptOYiAiE, YOur compuifi Aim Aivinfr' '^iifl' 
p»rl ind « leifl switch The ullimdlf <n ^<ifMi!iiitv foxir 
nninct arnJ simpii' imitailalion *jo i.i'nj»iinq i«i*fc #*e 



Is Your Commodore Disk Drive 
Hot and Bothered? 

Mov ol mem arc v^u kron. rnf^ ^utFpi irom t*ua And 
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Order Today! 
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a Breakthrough in Value ! 

ULTRABYTE 

» NEW PRODUCTS -ALL 
with FREE BACKUP COPIES 



ULTRABYTE DISK NIBBLER 



Uses proprietary revision of disk operating system |DOS| to malce 
a bit by oit copy. This process, called niboling. copies the formal, 
data and errors, all at the same time. Errors are not recognized . 
and do not hammer the drive. Built in fast load environment allows 
copies in 8 minutes with a single 1541 disk drive. 

• Easy to use. No separate analysis or error production 

• Choose 35. 36. 37 or 38 tracks to copy incl. hall tracks 

• Makes up to 5 copies of each original — | UNIQUE FEATURE) 

• Backs up 99% of all protected software 

• Free backup copy -two disks for the price of one 



FOR 2 COPIES OF THE 
DISK NIBBLER 



plus S4.00 shipping and handling. Mastercard. Visa. Check or M.O.. Foreign orders 
or COO add SZ.OO. Calif, add 6.5% IS 2.60] sales lax. Additional backup copies are 
S 20.00 plus S3.00 shipping. ATTENTION: Owners ol ULTRACDPY whose names 
are in our lite may order a single copy lor $20.00 plus 13.00 shipping. 



FREE BACKUP DISKS 



McMURPHYS MANSION 

.-^. AN ULTRABYTE 
^J^ TEXT ADUENTURE 



II seems that an unknown uncle has died in 
faraway Scotland and left you his vast 
lortune. SlO.OOO.OOOlobeexacll! 

There is only one small problem. Dear old 
uncle IVIclVlurphy was a bil demented and 

has hidden your Inheritance somewhere in 
his mansion. 

He left you only one small clue, a brass key. 

It is now up to you la find your fortune. 

• 30 60 hours ol challenge 

• Sealed envelope of hints 

lor beginners 

• Inslruclion manual included 

• Solution sheet available 

^ ^29.95 for 2 disks ^ 

plus S4.Q0 shipping. COD or 
Foreign add S2.00. CA tax SI. 95 



DISK SURGEON 

AN ULTRABYTE 
DISK UTILITY 

• Read data Irom. edit and write to disk 

• Analyze disk errors without "hammering" 

• Write errors 20. 21 . 22. 23, 27 & 29 on disk 

• Read dala under errors, erase errors 

• Decimal. HEX. Octal & Binary conversions 

• Format a single track with any ID 

• Detailed instructions lor beginners 

• Much more 

INCLUDES THREE PUBLIC DOIIflAIN COPY 
PflOGRAIflS THAT ARE NOT PROTECTED 

1] FILE COPY to copy portions ol a disk 

21 SINGLE TRACK COPY 

3) 4 MINUTE COPY of entire disk. 
Protected disks also require error 
production 

^ $29.95 for 2 disks ^ 

plus S4.00 shipping. COD or 
Foreign add S2.00. CA tax $1.95 



All Products for Commodore 64 & 1541 Disk Drive Only 
Write or Call 24 Hour Order Line 

ULTRABYTE (818) 796-0576 
P.O. Box 789 La Canada, CA 91011 



DEALERS & DISTRIBUTORS WANTED 



L 



919-787-7703). 



CHEATSHEETS 

Last time we reported on Leroy's 
Cheatsheets (Nov. '84 Scuttlebutt), 
there were 33. Seems Leroy had a 
few more up his sleeve: the current 
total of keyboard overlays available 
for assorted C-64 programs is 62. 
The most recent releases are Fleet 
System 2, Sky Travel, Word Pro 64, 
Write Now!, and PractiCalc II. Price 
is $3.95 each, plus $1.00 shipping. 

Cheatsheet Products, P.O. Box 
111368, Pittsburgh, PA 15238 (phone: 
412-781-1551). 




More Cheatsheets from Leroy. 
READER SERVICE NO. 207 

SPREADSHEET TUTORIAL 

The latest in Grolier's series of en- 
try-level, self-teaching productivity 
packages (see also The Information 
Connection on page 10), Educate 
($49.95) is designed to teach the be- 
ginning computer user to create and 
apply spreadsheets to everyday activ- 
ities in homes and schools. Included 
is a self-instruction tutorial, pre-for- 
matted practice template and menu- 
driven software tool that lets the stu- 
dent develop his own spreadsheets 
without memorizing commands. 
Available for the C-64 in September. 

The Educalc Template Disk 
($19.95), sold separately, includes 10 
application templates preformatted 
with labels and formulas. 

Grolier Electronic Publishing, Inc., 
95 Madison Ave., New York, NY 
10016 (phone: 212-696-9750). 



MORTON THE K SPEAKS! 

Ahoy! readers planning to attend the 
M.A.R.C.A. Commodore Computer 
Fair in Volley Forge, PA (July 26-28) 
won't want to miss Morton Kevelson 
speaking on printer Interfacing (3:00 
Friday and 1:00 Sundoy). See page 
101 for full details on the show. 
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FORMATTER 

An Automatic Data Creator for the C-64 
By Marie E. Coon 



If the tedium of writing print statements to format 
that special game screen, menu, or other display 
has you climbing the walls, Formatter is the pro- 
gram for you! In just seconds. Formatter will gen- 
erate new program lines that will exactly reproduce any 
screen full of text, graphics, or combination of the two 
that you devise, including all screen and character col- 
ors, even multicolor and extended background colors. 
In addition. Formatter makes either the full regular char- 
acter set or the full upper and lower case set of 255 char- 
acters available for reprogramming, and will then create 
character data statements for all redesigned characters. 
You can create new lines for up to about 20 screens, and 
successively view them. A deletion feature allows you 
to delete the lines for any or all of the screens you have 
devised, or delete the Formatter program, leaving just 
your new lines for saving or appending. Finally, since 
one of my pet peeves is having to stop everything and 
search madly through a stack of magazines to find a for- 
gotten program instruction, I have attempted to include 
all the instructions necessary to successfully operate For- 
matter within the program itself. 

Because the memory requirements of Formatter plus 
the new program lines necessary to reproduce a reason- 
able number of screens is more than can be accommo- 
dated by the default VIC-II chip setting, some juggling 
of memory usage was necessary. To provide maximum 
space for BASIC programming while still having custom 
characters plus a screen for formatting and a screen for 
reprogramming, the tatter operations were moved to the 
top of RAM memory, i.e. . Bank 2, which starts at mem- 
ory location 32768. An eight page block of memory from 
32768 to 34815 is reserved for 256 programmable char- 
acters. A screen for formatting is located from 34816 to 
35839 and a screen for reprogramming characters is lo- 
cated from 35840 to 36862. Memory locations 36863 
to 40959 contain the character ROM image and cannot 
be used for screens or reprogrammable characters. An 
additional four page block of memory from 31744 to 
32767 is reserved for storage of the color RAM for the 
formatting screen. The default screen which begins at 
location 1024 is also used for some of Formatter's dis- 
play features, leaving 29K free for BASIC programming. 
Ibrmatter is essentially a collection of subroutines that 
are called directly or indirectly by the main menu be- 
ginning at Line 400. To provide for a user-controlled de- 
lay with subsequent choices of action, the WAIT state- 
ment has been used throughout rather than the more 
femiliar GET A$. This is because WAIT often requires 



one less program line, directly provides a numerical val- 
ue, and does not create strings that can contribute to gar- 
bage collection problems. 

Menu choice 1 lists the different color and switching 
options available on the formatting and reprogramming 
screens via the function keys. Because there are more 
choices than keys, some of the keys perform dual duty. 
This may be confusing at first, but once the differences 
between multicolor and extended background color 
modes and how they work is understood, there should 
be no problems in achieving the colors you want. Just 
remember that the border color will not change when 
you are in either extended background color or multi- 
color mode, and that these two modes are mutually exclu- 
sive -they cannot both be "on" at the same time. Also. 
they are turned off by pressing the same function ke; 
that turns them on. (Refer to the Commodore 64 Pro- 
grammer's Reference Guide for a discussion of these fea- 
tures and how they operate.) The color numbers for the 
screen, border, and other color registers are cycled 
through their sixteen values by the use of the true/felse 
test of a relational operator. A relational operator has a 
value of -1 when it is true, such as when SC in Line 
200 is less than 16 in the expression SC < N where N 
equals 16. If SC is equal to or greater than 16, then the 
relational operator is felse and has a value of zero. There- 
fore, the equation SC=-SC*(SC<N)4-H where H 
equals one will cycle the value of SC from zero to 16. 
(See Lines 200 through 300 for more examples.) 

The f4 key switches character sets back and forth be- 
tween the ROM image and RAM. The somewhat uncom- 
mon BASIC numeric function ABS is used to toggle the 
character set value between 33 and 37 in Line 381. ABS 
strips the sign from a numeric value, leaving only the 
absolute value of that number. Therefore, O in the equa- 
tion 0=ABS(0-4) has a value of either zero or four, so 
that the expression 33-1-0 will be either 33 or 37. 

F6 switches directly back and forth between the format- 
ting and reprogramming screens without going through 
the menu. The f8 choice flashes in red to remind you 
that it will call up the menu from either screen when- 
ever you wish to make a different menu selection. 

A second instruction screen may be called by pressing 
the space bar. It details how to change all characters 
printed on the format screen in a certain color to another 
color. Say you have some lettering in blue and you want 
to see how it would look in green. First change the cur- 
sor to blue by pressing the CTRL key and the 7 key to- 
gether. Then press the CTRL key and the letter C key 
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together. The cursor will disappear. Now press the CTRL 
key and the 6 key together. Instantly, all of the blue let- 
tering will change to green. 

Menu choice 2 transfers program control to the format- 
ting screen. It first appears as a pale grey screen with 
a white border and a flashing dark grey cursor in the 
home position. This is actually the real cursor that has 
been made visible by the machine language subroutine 
starting at location 49980. This subroutine also controls 
all of the keyboard input. When a function key is pressed, 
it stores the ASCII number of the key at zero page loca- 
tion 253 and then returns program control to BASIC. 
BASIC PEEKS the function key number and then selects 
the corresponding subroutine (program Lines 445 through 
460). The character colors, reverse characters, and up- 
per and lower case are controlled by the CTRL, 
COMMODORE, and SHIFT keys just as they are in di- 
rect mode. Also, all character keys have been set to auto- 
matic repeat. As its name indicates, the formatting screen 
is where the major screen design work takes place. 

Program control is switched to the character reprpgram- 
ming screen by menu choice 3. The most obvious feature 
of this screen is that it is divided in half across the mid- 
dle. The upper half is colored an unchanging grey and 
contains some brief reprogramming instructions. This is 
where custom character designing takes place. The bot- 
tom half reflects the same screen and character colors 
as are on the formatting screen. This split screen is 
achieved by a machine language raster interrupt subrou- 
tine starting at location 49860. Also, as on the format- 
ting screen, all keyboard input is controlled by the cur- 
sor subroutine at location 49980. Instead of switching 
character sets, however, the f4 key calls forth the repro- 
gramming routine which starts at Line 150. To custom 
design a character, simply type the character you want 
to reprogram anywhere on the bottom half of the screen 
and then press 14. Immediately, an eight by eight grid 
of cyan zeroes and red asterisks will appear in the upper 
right quadrant of the screen, with the asterisks arranged 
in the pattern of the character you typed. The cursor will 
be flashing over the upper left comer of the grid and will 
respond to the screen editor directional keys and char- 
acter keys, but not to the space bar, CLR, HOME, INST, 
or DEL. It is also confined to the grid. To redesign the 
character, just type in a different arrangement of zeroes 
and asterisks. The zeroes will always print in cyan and 
the asterisks in red so that your design will clearly stand 
out. To input your pattern, press any function key. The 
previously typed character will instantly change to your 
design. Further changes can be made simply by repeat- 
ing this process until you are satisfied, A complete char- 
acter set of 255 characters can be reprogrammed in this 
manner. Use the bottom half of the screen as a scratch 
pad to build multicharacter designs, or to experiment with 
character colors and arrangements for incorporation in 
full screen designs on the formatting screen. 

Menu choice 4 jumps to the BASIC print statement 
subroutine beginning at Line 500. New print statements 
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are generated by a combination of two machine language 
subroutines and BASIC, The first machine language sub- 
routine establishes some markers and variables, and the 
second scans the formatting screen and POKEs the col- 
or, spacing, and character information for each screen 
line into a new program print statement. New lines are 
formulated at the top of the default screen and then added 
to the program via line 560. This line fills the keyboard 
buffer with RETURNS and then stop the program. The 
program pops in and out of direct mode to add each new 
line and to modify the controlling variables. New pro- 
gram lines start with Line 3002 and are incremented by 
two. The value for the next new line is held by variable 
D in Line 390. It is modified accordingly with each run- 
ning of this subroutine. 

The new program lines for each screen start with a 
preliminary line which calls a subroutine at Line 60002 
that displays the starting line number for that screen. The 
second new line establishes the character set and the 
screen, border, and character colors. A third new line 
is generated if the new screen is in either multicolor or 
extended background color mode. Each screen's new lines 
end with a line which provides for a user-controlled de- 
lay. 

The new screen display subroutine called by menu 
choice 5 starts at Line 1600. It first explains how to ad- 
vance the display from screen to screen, or how to re- 
turn control to the formatting screen or menu. Since any 
new screen is actually displayed on the formatting screen, 
any work in progress on this screen will be erased by 
running this subroutine. If you wish to view a previous 
screen(s) and also save your current work, first generate 
print statements for the unfinished screen and then run 
the display routine. 

The deletion subroutine for menu option 6 begins at 
Line 720, and offers four deletion selections. Choice 1 
will delete all of the new screen lines, choice 2 will de- 
lete all of the new screen lines from a particular line that 
you select, and choice 3 will delete all of the lines be- 
tween two user-designated lines. To delete the lines for 
a particular screen, first get the scran's starting and end- 
ing line numbers from the display section. (The ending 
line number of a screen is two less than the starting line 
number of the next screen.) These options all use Line 
560 in a variation of the print statement subroutine de- 
scribed above to delete the designated lines. Choice 4, 
to delete all but die new lines, employs a very different 
method which begins at Line 900. Actually, deletion of 
the old program is more apparent than real. The machine 
language subroutine starting at location 49152 scans 
through the BASIC program looking for the memory lo- 
cation of Line 3000. It then revises the BASIC pointers 
at locations 43, 44, 641, and 642 to indicate this location 
as the beginning of BASIC text. Now, only those lines 
from Line 3000 on can be LISTed, RUN, or SAVEd on 
tape or disk. The new lines will be automatically relocated 
to the default beginning of BASIC ty the C-64 upon SAV- 
ing and reLOADing. The original Formatter program can 
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BONUS GIFT WITH ANY SOFTWARE ORDER — AN EXCELLENT PUBLIC 
DOMAIN VERSION OF AN ARCADE HIT GAME ON ITS OWN DISK. 



ARCADE 

Archon 28.95 

Archon II Adept 28,95 

Beachead tl 25 95 

Bruce Lee 24 95 

Castles o( Dr. Creep 20.95 

Ctiampionship Loderunner 24,95 

Computer Quarterback 28,95 

F15 Strike Eagle , 23.95 

Flight Simulalof II 35.95 

Impossible Mission , , 23.95 

International Soccer 19.95 

Kennedy Approacti 23.95 

Micro League Baseball 28.95 

Statistics Disk (1984) 13.95 

Mig Alley Ace 23.95 

Night Mission Pinball 21 .95 

One On One 28.95 

Pilstop II 27,95 

Questron 27.95 

Raid Over Moscow £7.95 

Solo Flight 23.95 

Strip Poker 20.95 

Tournament Tennis 1 7.95 

Zaxxon 24.95 

ADVENTURE AND MIND GAMES 

Amazon 23 95 

Adventure Construction Set 37 95 

Adventure Master 27,95 

Below the Root 18,95 

Bridge 4.0 17 95 

Cutthroats 28.95 

Dragonwprld 23.95 

Fahrenheit 451 23.95 

Felony 23.95 

Hitchhikers Guide 25.95 

Infidel 25.95 

Monty Plays Scrabble 27.95 

Murder By The Dozen 23.95 

Party Quiz 49.95 

Party Quiz Refills 17.95 

Rendevous With Rama 23.95 

Robots of Dawn 27.95 

Sargon III 34.95 

Seven Cities of Gold 28.95 

Starcross 26.95 

Suspended 26.95 

Swiss Family Robinson 18.95 

Trivia Fever 27.95 

Ultima III 39.95 

Witness 25.95 

EDUCATIONAL PROGRAMS 

Agent USA 21 .95 

Cave of Ihe Word Wizard 24.95 

CBS Success w/Math Series ea. 18.95 

Evelyn Woods Dynamic Reader 35.95 

Harcourt Brace Computer SAT 54.95 

Kidwriler 19 95 Memory Manor 19.95 

Muppet Learning Keys 49.95 

Spell It 33.95 

Spellicopler 27.95 

Slory Machine 22.95 

Word Attack 33.95 

WORD PROC.-DATE BASES- 
SPREADSHEETS 

Batteries Included Home Organizers 

Checkbook 20,95 

Electronic Address Book 20 95 

Home Inventory 20 95 

Mail List 20,95 

Photos/Slides/Movies 20,95 

Recipes 20 95 



Batteries Included Home Pak 34.95 

Calc Result Advanced 69.95 

Calc Result Easy 35.95 

Complete Personal Accountant .. 54,95 

Consultant (Delphi's Oracle) 68-95 

Cut and Paste 36 95 

Financial Cookbook 35,95 

Fleet Systems 56.95 

Magic Desk I 35.95 

Mirage Data Base Manager 67.95 

Mirage Word Processor 56.95 

Net Worth 55.95 

Paperclip w/Spellpack 82.95 

PFS File 55.95 

Pracli Calc 34.95 

Pracli File 34.95 

Superbase 64 52.95 

Total Text 2.6 31 .95 

Total Mailing List & Labels 16.95 

GRAPHICS 

Animation Station 63.95 

Doodle 28.95 

Future House Light Pen 23.95 

Moviemaker 37.95 

Pen & Peripheral Vision 41.95 

Print Shop 31 .95 

MISCELLANEOUS 

Bulk Discs - Quantities of 10 12.95 

CompuServe Starter Kit 21.95 

Fast Load 27.95 

Maxell Disks - Box Of 10 16 95 

Pro- Tech Vinyl Covers 5 35 

Simons Basic 38.95 

Tac II Joystick 9.95 

Vidtex 21 95 

VIP Terminal 29.95 



HARDWARE AND PERIPHERALS 

B.I. 80 Column Display , 134.95 

Cardco + G Interlace 69.95 

Commodore 801 Ribbons 7.95 

Commodore Hardware CALL 

tndux Disk Drive 279.00 

Okinate 10 w/Plug and Print 199.00 

Okinate 10 BIk &Wht Ribbon 4.75 

Okinate 10 Color Ribbon 5.25 

Panasonic KXP1091 Printer 279.00 

Prowriter 7500 Printer 229.00 

Prowriler 8510 AP Printer 299.00 

Prowriter 8510 Ribbons 5,95 

LEROY'S CHEATSHEETS $2.95 

Basic Paperclip 

Blanks (3( Practicalc 

Calc Result Adv. Printers 

Calc Result Easy Epson RXSO 

Comal (1.4) Gemini 10X 

The Consultant 1525/801^ 

Doodle Quick Brown Fox 

Easy Script Simon's Basic 

Flight Simulator II Speedscript 

For the Beginner Sprites Only 

Hes Writer Superbase 64 

Logo Sheet 1 Terminals 

Logo Sheet 2 Smart 64 

The Manager Vidtex 

Multiplan VIP 

Word Pro 3/Plus 




SPECIALS 

Cardco Numeric Keypad 

32.95 

CompuServe Starter 

Kit/Vidtex 

39.95 

S-Games 

(Fortnerly Hes Games) 

11.95 



TOLL FREE 

1-800-633-8699 

In Pa. Call 
A.C. 717 838-8632 

ORDERING & TERMS 

■ VISA & M.C. accepted with no 
charge In the continental USA 

■ $2 50 shipping charge on orders 
under $100.00 

■ Pa. Residenis add 6% Sales Tax 

■ Prices subject to change w/o 
notice 

' 48 hour shipping for cashier 
check - Money order - charge 
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be recalled by returning the pointers to their original val- 
ues. 

As mentioned previously, the new lines are formulated 
to display on the formatting screen located in Bank 2. 
To run your new lines on a screen located in another 
Bank, the POKE values in line 3000 must be changed 
accordingly. If you wish to use the default screen, Line 
3000 may be deleted entirely and the POKE A (53272) 
values in subsequent lines either revised or deleted de- 
pending on whether the custom character set is used or 
not. In any case, the variables SC and BC should be de- 
leted as they are only housekeeping values for Formatter's 
use. Other lines, such as the GOSUB 60002, WAIT and 
IF G <> 32 lines as well as Lines 60000 through 60004 
should also be deleted urJess you want them in your pro- 
gram. 

Menu option 7 also uses a variation of the print state- 
ment subroutine to generate a data statement for each 
reprogrammed character. These statements begin with 
Line 60010 and increment by two. The machine language 
subroutine starting at location 49280 examines the cus- 
tom character set and stores the screen code of each re- 
designed character in an array beginning at location 
50432. BASIC PEEKs this number and prints it as the 
first number in each new data statement. Lines 60006 
and 60008 establish a pair of nested FOR/NEXT loops 
to read and input the character data. As written, these 






55. GO 



The lEA Instant Editor Assembler 

is now on SALE for only $5.00 
plus $2.00 postage and handling 



i 



Written in lOOJt machrne language 
Assembles 17k source in 5 seconds 
Coresident Editor Assembler Monitor 



• Compatable with HES MON 

• SLOW MOTION code anelyzef 

• Technicat assistance number 



Robirfs Software 

Box 30230 • Btoaminglon. MN 5S430 
Phone 1613) g^fl-ee 54 



$9.95 each'!! 
for the Commodore 64 

BLACKJACK GIN RUMMY 

DISK or TAPE 

PYSCO SOFTWARE 

Box 301 Bristol, CT 06010 




WANTED 



COMMODORE 64 computers and 1541 Disk 

Drives; $75 for those in working condition. 

Please call 205-221-5211 
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lines will POKE the data into a character set located in 
Bank 2 beginning at location 32768. If you wish to use 
another location for your custom characters, then the val- 
ue 32768 in Line 60008 must be revised to the beginning 
location of your set. 

Menu choice 8 allows you to select which character 
set you wish to use for custom characters— regular or 
upper and lower case. Since the custom character set al- 
ways occupies the same eight page block, both sets can- 
not be available for reprogranraiing at the same time. 
Also, the data statement subroutine will not make suc- 
cessive sets of data statements for both character sets. 
Statements written for the first set will be overwritten 
by the second set's statements. Therefore, if you decide 
to change sets but have already redesigned some char- 
acters of the other set that you wish to save, then make 
character data statements and save them on tape or disk 
before making the change. 

The final menu choice, 9, exits the program to the de- 
fault screen. I recommend using this exit, especially if 
you wish to LIST and/or revise your new lines. A RUN/ 
STOP when the program is in Bank 2 will permit a read- 
able listing, but a RUN/STOP RESTORE will result in 
an apparent limbo where little seems to work properly. 
Sometimes RUN plus RETURN will restart the program, 
but occasionally not. Best to avoid the whole problem. 

There are only three more things you need to know 
about Formatter. First, you cannot use quotation marks 
in formatting a screen. The print statement subroutine 
has been programmed to ignore them and substitute a 
space in their place. This is because BASIC does not 
allow a quotation mark to be included in a print state- 
ment. If you wish to use what appears to be quotation 
marks, then program another character to serve that pur- 
pose. Second, if you use the INSeiT key to position a 
line on the formatting screen, be sure to use the space 
bar or some other character to erase the quote mode char- 
acters that the INSeiT key generates. These characters 
are not visible at first but will show up later when the 
new print statements are run. Lastly, Formatter will not 
pick up a reprogrammed space character if it is the begin- 
ning or ending character in a line. This is because of 
the way the print statement subroutine works. If the first 
character of a screen line is a space, then it is recorded 
as a cursor right, not a space. This continues until some 
other character is found and recorded. Spaces between 
characters are then recorded as spaces, but the spaces 
ending a line are simply forgotten. 

A special note for Eastern House Rabbit users: the Bab- 
bit uses at least one of the same zero page memory lo- 
cations to establish its link with BASIC as is used by a 
couple of Fbrmatter'& machine language subroutines. This 
will cause a serious program crash. Therefore, Rabbit 
link into BASIC must be removed by typing *K before 
RUNning Formatter However, the Rabbit link may be 
reestablished to SAVE and LOAD either Formatter or 
new program lines created by it with no problems. D 
SEE PROGRAM USTING ON PAGE 101 
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SELECTACNROiME 

A Color Experimentation 
Utility for tlie C-64 

By Simon Edgeworth 



Do you write your own programs? If you do, 
it is important to use interesting and effec- 
tive color combinations on the screen. Ex- 
perimenting with different colors normally in- 
volves juggling with commands such as POKE5328i,15 
or PRINTCHR$(144). This can be both frustrating and 
time-consuming. 

Selectachrome is designed to make color experimen- 
tation easy. It enables you to try out over 40,000 differ- 
ent combinations of bonder, screen, and text colors. When 
you have found a color scheme which you like, reproduc- 
ing it in your own program is simple, because Selecta- 
chmme tells you exactly which BASIC commands to use. 
Colors are changed by pressing the function keys. Fl 
changes the bonier, O changes the screen, and f5 and 
f7 change the two text colors. The shifted function keys 
step through the colors in reverse direction. 

The text on the screen is continually updated to show 
the names of the current colors, and the corresponding 
BASIC commands. 
Happy colorscheming! D 

SEE PROGRAM USTING ON PAGE HO 



DISfNTEGRATOff 

An Arcade Action Oame 
for the €-64 

By Barbara Schulak 



^p^l isintegmtor is an all machine iangauge arcade 
M ■ game. The object is to protect your base from 
M ^m the invading enemy. For your defense, you 
^""*^^ I have at your disposal eight underground silos 
from which you can launch bombs that will disintegrate 
the oncoming enemy. These bombs are activated by press- 
ing the appropriate number key (1-8). 

The enemy comes in waves of 15. Once all 15 ships 
have been successfully shot down, the level is complete 
and the next wave begins to attack at an increased rate 
of speed. There are nine levels in all. Pressing the space 
bar will pause the game. Pressing the space bar a sec- 
ond time will restart the game. 

If the enemy successfully reaches your base, one of 
your "lives" is lost. After three hits, your base is destroyed, 
the score is displayed, and you may choose to play again 
by pressing "Y". Hitting the RETURN key starts the 
game. D SEE PROGRAM USTING ON PAGE 98 



SIOPIHESPREaD 
OFADEUmr VIRUS. 

Quick. Deadly viruses are rapidly multiplying. If you 

don't act fast they'll infiltrate your entire bloodstreann. 
And in seconds it'll be over So blast the invaders with 
interferon. And annihilate them with macro- 
phages. With Cell Defense, you con- 
trol your own immune system. 
You'll discover basic concepts in 
biology And explore exciting 
scientific strategies. While 
at the same time, leading 
an attack against a host of 
deadly viruses. So get 
yourself the science 
simulation game Cell 
Defense. Your life may 
depend on it. 

CELLDEFENSTBJLHESWIRE 



fof thf Cc*nn5'ji]oi>' M 



Suggested Retail 




$14.95 



CONTACT YOUR LOCAL DEALER OR ORDER FACTORY DIRECT: 

HESWARE P.0B0X631 S. SAN FRANCISCO, CA. 94083-063 1 

ADD S2.00 FOR POSTAGE AND HANDUNG. VISA AND MASTERCARD AVAILABLE. 



PUSHMITNE 

RIGHT BimONS AND 

YDU COULD BE THE NEXT 

AMERICAN IN SPACE. 

The race for space is not a game. It's a reality. That's why 
we developed a program that will challenge your 
ability. Expand your mind. And keep you 
fascinated for hours, Project Space Sta- 
tion is the most sophisticated way to , -^ ^ , 

learn to design and operate a space ;' cTATTON 
station. You'll even use the .^ jii i-^ J 

elements ofthe actual process 
NASA uses in their design. 
You can take on the mission 
yourself, or bring along your 
family and friends. So get 
working on Project Space" 
Station today. America's astro- 
nauts are counting on you. 

PROJECT SPACE STA110H BY HESWARE 

Suggested Retail $Z"."D 

CONTACT YOUR LOCAL DEALER OR ORDER FACTORY DIRECT: 

HESWARE P.0B0X631 S. SAN FRANCISCO, C A. 94083-063 1 

ADD $2.00 FOR POSTAGE AND HANDLING. VISA AND MASTERCARD AVAILABLE. 
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How to create 

non-musical sound effects 

for VIC and Commodore 64 gomes 




4 



crieatingyoijr cwng/vmies 
onti-ii=vic:and64 




^ Hi-'ro were a ample of guys in Orein. lUali, u Iro 
used to siiij; alotii! w iih llie ( 7w:\ Cliinh<r iziime. 
Nol hunimiiii;. .sms,'//!!,-. in tail o|x-iatie \oiLes. 
It aitiiicted a lot olatieiiiioii. hut the iruih is that 
tlic\ were niei"el\ iloint: out louJ what ue all \ecrvll\ 
(.io in oiir iiiiiuls. The imisie gels [o \ou. 

^011 don't realize hov\ much you need it until you play 
a maetiiiie whose sound is daniajied or turned otT. In a 
mail m t;recrvslx>ni theiv's a Ciysu:l Cusfh- with one \oiee 
niissinj: dri\es me em/y. And the n<>iikiy f^mi; in a 
mall in South Hend, Indiana, that lias no music at all - 
well. I cant pla> it. I just can'l seem to get the rtnthm. 
And that's just the music. Hven more im|-Hirtanl are 
the sound etfects. Instead of pro\ iding hackgroiuid or 
mood. lhe\ actualh comnuinicale lo the pla\cr what is 



going tin. 

VOL CAM LOOK AT EVt:R)THl.\G 

When >ou're playing you can't keep \our eyes on evcry- 
ihing. F.\en when \ou get that glassv. unfivused ga/e 
that the best pla\e!> get, there's still a limit to how manv 
things \ou can pa\ attention to at the same time with 
>our e\es. 

Hut \our cars can pick up a lot of additional infonna- 
tion. rhe shooting sound tells you that the computer got 
>oiir "fire" message. The explosion tells you that \ou hit 
one o( the had guys. The mucti louder explosion tells 
\oi\ that the bad guys got .something you were try ing lo 
protect . 

riiere are beeps tor picking stimeihing up and btxips 
lor dropping something, boinks for bumping into walls, 
hums to announce that the worst monster is aKuit to come 
ui and eat \ou. and sad little mekxiics to tell you that 
you're dead. 

Sometimes the sounds are realistic - an engine sound 
for a car race game, for instance. The higher it rises in 
pitch, the fasiter youK going. The almost painful sqi)e;ik- 
ing .soutuls in Murii^ Bn>ihcrs tells >ou \ou"re walking 
on ICC. 

Sometimes the sounds are nothing like the real wx>rld. 
But as \ou pla\ the game. \ou learn whicii sound means 
which event. .And from tli.it moment on. \ou don't even 
have to sec the evcm to know that its taken place. The 
sound oi the bouncing hall in Mr. Do tells vou thai it 
hasn't liit anything vet. so you know \ou can't throw it 
again , 

The sounds you create for your game neeil \o Iv distinct 
from each other, so that the plaver dtx^snt get confused 
about wiiat has happened. 

The stninds i\\<.o should be interesting, sometimes 

By Orson Scott Card 
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As low Bs: 



Quality Bulk Disks 








Includes: 

— High Quality Disk — Write Proiecl Tabs 

— Re-inforcing Hub Ring — User ID Lab«it 

— Tyvel( Sleeves — Free Shipping 
— Lifetime Warranty 

SS/SD, Quantity 500 

These are first qoaiity disks by a major manufacturer — no seconds or cosmetic imperfeclions. You save because there are no 
packaging or advertising costs, nol because these are somebody else's rejects Each disk is tested on and between tracks at 
levels 25% more critical than industry standards. Total surface testing assures a 100% error free disk. 

• Durability — 3.5 million wear revolutions on a single track. 

• Special Lubrication — Improves head to disk interface, improving data reliability and extending disk life, 

• Unique Jacket — Temperature resistant, low mar vinyl. The full adhesive edge seal provides superior dimensional stability. 



OUR 
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PRODUCT # 


DESCRIPTION 




DISKS 


DISKS 


DISKS 


DISKS 


11086 


SS/SD Bulk 




$0.94 


$0.87 


$0.85 


$0,79 


11096 


SS/DD Bulk 




$0.99 


$0.91 


$0.89 


$0.86 


11106 


DS/DD Bulk 




$1.07 


$0.99 


$0.97 


$0.94 


11206 


DS/DD Flippies 


Bulk 


$1.12 


$1.04 


$1.02 


$0.99 



OUR 
PROD. # 


BOXED DISKS 

2-9 
DESCRIPTION BOXES 

Ultra Magnetics SS/DD Boxed $10.95 
Ultra Magnetics DS/DD Boxed $11.95 
Maxell MD1 SS/DD $16.95 
Maxell MD2 DS/DD $21.45 
Verbatim Datalile SS/DD $18.95 
Verbatim Datalile DS/DD $22.95 


10-29 
BOXES 

$10.20 
$11.20 
$14.95 
$19.45 
$16.95 
$20.95 


30* 
BOXES 

$ 9.95 
$10.95 
$14.55 
$18.95 
$16.55 
$20 55 


* AVAILABLE WITH DISK PURCHASE ONLY * 

SUHGE PROTECTOR Product #1 921 2 

One plug surge protector. Indicator shows unit is protecting . 
Rp'inf)n<;p timp 1-3 nanosec UL listed Sfl.95 


11112 

11122 
10602 
10632 
10332 
10342 


HEAD CLEANING KIT Product #19222 

Recoton head cleaning kit provides six premeasured wet/dry 


DATA CASE Product #55712 

Positive locking lid with carrying handle built in insures 
protection for up to 60 disks. Six dividers $5.95 



1-800-742-2200, ext. 100 

PRICING: Additional discounts are available for larger purchases. Different products may be added together for 

maximum quantity discount. 
ORDERING: Use our toll free order line! The number is 800-742-2200, extension 100, This number is for ordering 

only.— the girls cannot answer questions. For questions and special orders call {717) 564-1400. When 

you order, please order by product number. 
SHIPPING: We pay the shipping on all orders. All orders shipped UPS ground unless otherwise requested. 
PAYMENT: We ship all orders COD. We also accept MasterCard and Visa. There are no additional charges for 

COD or credit cards. We offer 3% discount for prepayment. 



PatdBKh 

DISTRIBUTORS 
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strange, sometimes comic, to make your game feel new. 
Don't you get tired of the same old shooting noises when 
you play other people's games? 

MAKING SOUNDS ON THE 64 

In the last two columns we've covered everything about 
sound production on the VIC and 64 except the noise 
generators. But it doesn't hurt to review. Here's a useful 
table of all the locations used for the various sounds. 

Volume Control. A number from (softest) to 15 
(loudest) is POKEd into 54296. A value of turns off 
all sound. 

Voices. Three voices are available, each separately con- 
trolled. Voice has seven registers starting at 54272; voice 
I has seven registers starting at 54279; voice 2 has seven 
registers starting at 54286. Starting with the voice's base 
address and adding the value shown, each of the registers 
are as follows: 

Pitch Control: Base+0 and base+l. The first address 
contains the low byte, the second address the high byte 
of the pitch of the note to be played by that voice. For 
rough pitch control (where accurate melody doesn't mat- 
ter), only the high hyte need be used. For the voice to 
make any sound at all, however, one of the pitch (or fre- 
quency) registers must have a non-zero value. 

Pulse Width: Base-l-2 and base4-3. The first address 
contains the low byte and the second address the high 
nybble of the pulse width. These registers are only used 
if the pulse wave form is selected in the voice control 
register below; otherwise, these locations have no effect. 

Voice Control Register: Base +4. Each bit of this reg- 
ister sends a different message to the sound chip. Each 
bit can be tumed on by ORing it with a number or turned 
off by ANDing it with a number. As each function is 
described, the numbers to OR (turn on) or AND (turn 
ofO are included. To use those numbers, you would use 
this formula: 

POKE reRister . PEEK (register) AND turn 
off number 

or 

POKE register , PEEK ( register ) OR turn on 
number 

Here are the functions of the voice control register: 

(Gate): Begin executing the sound envelope (OR 1) 
or release the currently sustained sound envelope (AND 
254). This has the effect of turning each voice on or off. 

(Sync Bit): Synchronize with another voice; OR 2, 
AND 253. This is an advanced sound technique. 

(Ring Modulation): If the triangle waveform is se- 
lected, add overtones from another voice; OR 4, AND 
251. This is an advanced sound technique (see "SAWING 
WOOD" for an example of its use). 

(Test Bit): OR 8, AND 247. Advanced sound tech- 
nique. 

(Triangle Waveform): Turn off all vraveforms with 
AND 240, then OR 16. 

(Sawtooth Waveform): TUm off all waveforms with 
AND 240, then OR 32. 



(Pulse Waveform): Turn off all waveforms with AND 
240, then OR 64. A pulse width must be selected at 
base-l-2 and base-l-3 when using this waveform. 

(Noise Waveform): TUm off all waveforms with AND 
240, then OR 128. The pitch has a less noticeable effect 
on the noise waveform, but the difference between a high- 
byte pitch of 255 and a high-byte pitch of 1 is very clear. 

One of the waveforms must be selected before any 
sound can be heard. Since both the waveform and the 
gate are necessary to cause a sound, the two numbers 
can be combined and POKEd in at once. For instance, 
to gate on voice with a sawtooth waveform, you could 
use 

POKE 54276,33 

Sound Envelope: Base+5 and base-l-6. The attack val- 
ue, a number from to 15, times 16, determines how 
quickly the volume rises from nothing to loudest when 
the note is first gated on; is quickest, 15 slowest. The 
decay value, a number from to 15, determines how 
quickly the volume falls from the peak volume down to 
the sustain volume; again, is quickest. 

The sustain value, a number from to 15, times 16, 
is the volume at which the note is sustained until it is 
gated off; is softest, 15 loudest. The release value, a 
number from to 15, determines how quickly the volume 
falls from the sustain value to silence when the note is 
gated off; again, is quickest. 

The attack and decay are combined and POKEd into 
base -1-5. The sustain and release are combined and 



MERLIN 64 

THE BESTAMCRO ASSEMBLER FORTHECOMMODORE64 

Easy to use for the beginner or professional. Merlin 64 is 

an extremely powerful macro assembler. 

)ust a few of its features include: 

• Fast assembly times 

• Word processor like editor 

• Conditional assemblies, 
Optional assembly to disk 

• Includes Sourceror, an easy to 
use disassembler that creates 
Merlin 64 source files from 
binary data 

• Macro library of common 
operations 

• Cross Ref. utility program 

• 80 column display 
compatibility 




"This is the best assembler I've seen for the Commodore 64 ... " 
Wm. Sanders /Assembly Language for Kids 

". . .an outstanding value. . .1 can't Imagine how it could 

be better." 
^ A pv Q C JI* ^ Peterson /AHOY! Magazine 

fcP ^T ^ • ^ •mJ -Mus J3.00 Shipping. CA Res. add 6% Sates Tax. 

Ask your local dealer for details, or |ust write or call: 

' PUBUSHIflc/lMC. 
P.O. Box 582 • Santee, CA 92071 • Telephone; 619/562-3221 
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POKEd into base +6. For instance, suppose we want an 
attack of 3, a decay of 9, a sustain of 5, and a release 
of 15. We would use this formula: 

POKE base+5 . (3*16) + 9:P0KE base+6 , 
(5*16)+15 

Sound envelopes apply regardless of the waveform se- 
lected. This allows some control of noises as well as mu- 
sical tones. 

MAKING SOUNDS ON THE VIC 

The VIC makes its noises much more simply. Only 
five registers are used. 

Pitch Control. The first three registers produce mu- 
sical notes. Each register has its own waveform, which 
cannot be changed, and each register is exactly one oc- 
tave higher than the register before. The lowest is at ad- 
dress 36784, the middle voice at address 36785, and the 
highest at address 36786. 

The fourth register, at 36787, produces noise instead 
of a musical note, but it is used exactly the same way 
as the three musical note registers. 

To select the pitch for each voice, including the noise 
register, you use a number from to 127. is the lowest 
and L27 the highest pitch. Remember, a number POKEd 
into 36784 is exactly two octaves lower than the same 
number POKEd into 36876. 

To turn the voice on, you add 128 to the pitch before 
POKEing it in. So to play a C, which has a pitch of 97, 
you would use 

POKE register, 97+128 

If a register already contains the pitch you want it to 
play, and you merely want to turn it on, you can use 

POKE register, PEEK (register) OR 128 

To turn off die register without disturbing the pitch it 
is playing, you can use 

POKE register . PEEK (register) AND 127 

Volume Control. The volume is controlled at loca- 
tion 36878, and must be a number from (silent) to 15 
(loudest). The same location also controls the auxiliary 
color for the screen if you are using multicolor mode. 
If you aren't using multicolor mode, then no harm is done 
if you simply POKE the volume value into 36878. If you 
need to protect the auxiliary color code, then you will use: 

POKE 36878, (PEEK(36878) AND 240)0R 
volume 

MANIPULATING THE SOUND 
WHILE ITS PLAYING 

With the music programs in the last two issues of 
Ahoy!, we have done nothing more than play simple mu- 
sic. We set the waveforms, envelopes, volume before the 
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melody is played, and then changed the pitch from note 
to note, gating each note on, counting the duration, and 
gating it off when its time is up. 

To create more elaborate sound effects, we don't play 
so many different notes, but each one lasts longer, and 
we manipulate pitch and volume (and, with the 64, wave- 
form) while the note is being played. 

Often, you will want to get rid of the 64's sound en- 
velopes for sound effects (though just as often you will 
want to use envelopes). To get rid of the sound envel- 
ope, you simply use a value of for the attack/decay reg- 
ister and a value of 15 for the sustain/release register. 
This has the effect of bringing the voice up to full vol- 
ume as quickly as possible, leaving it at full volume as 
long as the note is held, and then shutting it off immedi- 
ately as soon as the note is gated off. You will notice 
that this makes the 64 function much like the VIC. 

To shape a sound effect, you first set up the note by 
selecting waveform, envelope, and so forth, along with 
the initial pitch and initial volume. Then you gate the 
sound on. As soon as the sound is playing, you begin 
manipulating it. 

Changing Pitch. You can start the pitch high, then 
bring it down by POKEing successively lower numbers 
into the pitch control register, using a "backward" loop: 

64 version: 

FOR 1=255 TO 5 STEP -10; POKE pitch high- 
byte register, I: NEXT 

VIC version: 

FOR 1=125 TO 5 STEP -5: POKE voice 
register , 1+128: NEXT 

Notice that I used a step of 10 (5 in the VIC version). 
The higher the step value, the greater the change in pitch 
at each step in the loop. In this loop, the pitch would 
get lower in 26 increments. 

Because the sound is not gated on or off between each 
pitch change, the listener usually can't hear the change 
from one pitch to the next. It sounds like a smooth, con- 
tinuous swoop. 

If the loop went from 5 to 125, in steps of 20, it would 
swoop upward very quickly; if it went from 5 to 125 in 
steps of 2, it would rise very slowly. 

Or you can create a vibrato by alternating between two 
pitches, like this: 

FOR 1=0 TO 19: POKE pitch register , 
60 : POKE pitch register , 90 : NEXT 

By adding short delay loops -like FOR X=0 to 9: 
NEXT— between each pitch change, the vibrato could be 
made more distinct. 

These pitch changes also can be used with noise wave- 
forms on the 64 and the noise voice on the VIC, but the 
differences are much less clear. However, it does change 
the quality of the noise considerably. 



MUST LIQUIDATE I^Z^T 

TOTAL Personal computer system 



GET ALL THISATONELOWPRICEl 

64K Computer • 16 Hue Color, 5" Monitor • Disk 
Drive • Printer • Two Software Packages: "Easy 
Script" word processing and "The Manager" 
data base program! 




Carries 

easily as a suitcase! 

Plugs into 115V outlet 



Sorry f we*re not permitted to PRINT the famous brand-name. 
BUT, we CAN "tell all" if you call us TOLL FREE: 1-800-J28-0609! 
THE COMPUTER. 



For business, education and home use! Thousands 
of programs are available. 

Snap-on computerl 64K RAM. 20K ROM. Full-size type- 
writer keyboard. Upper and lower case letters, 
numerals, symbols, reverse characlers. 2 cursor 
control keys, 4 function keys, programmable to 8. 
H/lusic synthesizer with 3 indeperidenl voices, each 
with 9 octave range. Input/oulput pons accommo- 
date . . . user, serial. ROM cartridge, joysticks, ex- 
ternal monitor, phone modem. 

Buili-ln disk drivel Intelligent high speed unit with 
5v<" (loppy disk recorder. 170K formatted data stor- 
age: 35 tracks. 16K ROM, Uses single sided, single 
density disk. Serial interface. Second serial port to 
chain second drive or printer. 

Built-in color monitor I Displays 40 columns x 25lines 
of text on 5" screen. High resolution. 320x200 pix- 
els, 16 background, character colors. 

Built-in ROM cartridge portl Insert ROM program car- 
tridge. Multitude of subjects available in stores 
across the nation! 



THE PRINTER. 

Graphics quality 6 x 7 dot matrix printer. An ideal 
"fit" lor this system ... and included in the aston- 
ishingly tow package price below! 
Print method: Bi-directional impact dot matrix. 
Character matrix: 6 x 7 dot matrix. 
Characters; Upper and lower case letters, numerals 
and symbols. All PET graptiic characters. 
Graphics: 7 vertical dots — maximum 480 columns. 
Dot addressable. 
Cfiaracler codes: CBM ASCII code. 
Print speed: 60 characters per second. 
Maximum columns: 80 columns. 
Character spacing: 10 characters per Inch. 
Line feed spacing: 6 lines per inch in character mode 
or 8 lines per inch selectat)le. 9 lines per inch in 
graphics mode. 

Line feed speed: 5 lines per second in character mode, 
7.5 lines per second in graphics mode. 
Paper feed: friction teed. (Tractor feed optional.) 
Paper width; 4.5" to 8.5" width. Up to 10" with option- 
al tractor feed. 
MuHlple copies: Original plus maximum of two copies. 



Dimensions: 13 "W x 8"D x 3'A'H. Wt,: 6',*! lbs. Power: 
120V AC, 60 Hz. 

THE SOFTWARE. 

"Easy Script" One of the most powerful word pro- 
cessors at any price! Cut re-typing, create docu- 
ments from standard paragraphs, do personalized 
I etters , see and change a d ocu ment before it is prim- 
ed. Instruction manual has extensive training sec- 
lion that simplifies use . . . even lor someone who 
has never used a computer or word processor before! 

"The Manager" A sophisticated database manager 
lor business or home use. Business uses: accounts 
payable/receivable, inventory, appointments, task 
manager. Home uses: mailing lists, home inventory, 
recipes, collection organizer, investment tracking, 
checkbook balancing. School uses: research arti- 
cle index, gradebook. 

TOTAL 

Personal Computer System 

Now Available At 

FAR BELOW dealer cost! 



Compatible with Commodore Computer Systems (Not included in pKkage price.) 



JOYSTICKS (Set ef 2) 

Give you the fun of playing a wide 
selection of games. 

Mfr. List: $59.90 pr 
Liquidation Price 



$18 



pr- 

Ham H.577.636Z2-01. S' H: S6.00 pr. 



64 MODEM 

Access new worlds of information with your 
computer. 

Mfr. List: $124.95 
Liquidation Price 



$44 



Horn H-B77.S3646-00, S H: $4 00 



TOTAL jt 

PACKAGE '*' 
PRICE 



488 

lt.mH-577.6401102 
Shipping, handling: S24.00 



Other popular brands of computer peripherals 
available at liquidation prices. For informa- 
tion, Call TOLL FR££: IBOO 328-0609. 



«>1 



Credit card mMnbars c»n order bv fthotm. 
24 hour* a day. 7 days a wsak. 

Toil-Free: 1-800-328-0609 



Your ch«cl( it walcomel 

No dalays whan you pay by chackf 



C.O.M.B. CO. 

Authorized Liquidator 

14615 2BTH AVENUE NORTH 
rullNNEAPOLIS. n/llNNESOTA 55441-3357 



SEND ME THE ITEMS I HAVE LISTED BELOW 

Price subfect to chartge after 60 days. Sates outside 

conijnflniai US- are subject to specral conditions 

Please call or write to inquire. 



Itatn 

No. 



How 

Many 



item 



Ship/ 
HandL 



Pries 



C.O.M.B. CO:^ horn M-577 

1461B28tb Ave. N. /Minneapolis. MN 5B441-3357 

S^nd ih? iiAms indicated ai 1«ft. (MinnosoiB reddantiadd 6% 
aates tax . Please allovu 3-4 weeks for deliverv. Sorry, no C.O.D.) 
G My check or money orders is enclosed. (No delays in procoi- 

sing orders paid by cMck, ihanki to TeleCheck.) 
Charge: .J MasterCard" LI VISA G Am. Eh. C Diiters Club 

Acct. No. Emp- 

PLEASE PRINT CLEARLY 

Name -^^^^^—^^^^ 

Address ^^^-^^—^^^^^ 

City - 

State ZIP 



Phone . 



Sign here . 
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Sensational Prices! 

. . . On Our Most Popular Items! 



Introducing . 

THE 99 ( DISKETTE 

Are you paying too much for diskettes? Tiy our 

first quality, prime, 5'/*" diskettes {no rejects, no 

seconds) at Itiese fantasic sale prices and save. 

save, SAVE! Disks are packaged in boxes of 50: 

each box contains 5 shrink-wrapped lO-packs ttial 

include diskettes In sleeves, labels, and write- 

protect tabs. 

Eacfi diskette is certified to be 100% error free and 

comes with a lifetime warranty (11 you have a 

problem, we'll replace tfie diskette). All diskettes 

include hub reinforcement nngs and write- 

protect notch. 

All diskettes are double density and work in either 

single or double density drives. 

SS, DD Diskettes. Box ot 50 

32391 »49.50-«99t ea! 

DS, DD Diskettes, Box Ol 50 
^ 32403 



564.50-'i.29Ba.! 



The Most Complete Disk Drive 
You Can Buy 

Includes Word Processor, Spread Sheet, and 
Data Base Manager 



INDUS GT 



ONLY 



*259 



Slale-oi-the-an disk dfivfl for C-d* and VlC-ZO features LED 
secior JndicaiD)'. electronic wnte-prolect, bulR-m wed^, and 
operating spe&ds up to 400% faster Package trtdudes cables 
and power suppfy. carrying case thai >ckiut>les as a {llsk storage 
lite AND software starter package leaiufing word prixassof. 
Spreadsheet, and da1al:>ase mana^r pfogra/n^ 

PULL YEAR PARTS AND LABOR WARRANTY!! 



33443 Indus GT Disk Oriv« 



v: 



ONLY '259 



CARTRIDGE EXPANDER 

w»tf«NE Plus $22.95 

="= FAST LOAD 
^=^ OFFER! 

Stdp wM^if^O Out yDi,tf compulsit and cantniQBt. by endless swapptngi I4sw 
O^v^ cartridge e>ipai>d>Qt features 1«w carlndgo slots Setecl eiti^r car- 
(ndge. or the "alt" position iF no cai^rid^s i& to i>d u^ed Reset the conv 
puur mdepefidenrly of tfw power switch Camic>^ ^ots ar« vertical tat 
easy accBM~r>a Uirtd tumbling twtiind the corDputei- 
34220 2-Slot Cartridge Expander *19.95 

Ttie caniKtQe expander is a great companion i<ft (tte Epyx Fast (.oad 
cArtridge— you can kaap l( permanenliv ^nslailed pim luva a slot free fof 
othei caniidges' 
34216 Fast Load Cartridge (Sug Retail 'w 9b) *29,95 

fast Load ONLY 522,95 
with purchase of cartridge expander! 




LOWEST PRICES! 

We can oHer you some of the lowest prices tn ihe country on the mosit ^'tz-vi^^ 
popular primers, monitors and interfaces. Our normal prices are already ^iE^nir 
low. bul to make sure you gat the best deai you can, we will also mee! most -...*... ^*. 
competiltve prices in this publication when placed on an equal basis 
(Remember— we don'l charge for use of your credit card, impose excessive EPSON 
shipping fees, or use any othef hidden extras to boost the price you pay 
Due to (tie rapid change m prices m the computer industry, we can only BMC 
meet prices at the time you place your order; we cannot adjust prices on 
items ordered or shipped on an earlier date) Another plus lor cfiargecafd AXIOM 
customers— your charge card is billed at time ot shipmenl only lor the items 
shipped— no early billing, no long wait for Ihe merchandise you Greedy CARDCO 
paid lor. 

* THE BEST PRICES * THE BEST SERVICE * 
WHY SHOP ANYWHERE ELSE? 



GOMPUTERFACTS® "'•"' 

Technical Service Data for 
Your Computer and Peripherals 

Sams introdilCeS COMPUTERFACTS^*^ pachala ol mloimMion that rev«al the 
mne' «w}'king5 ot major t»and mic'os. monttors, printers pn^ 4i9k <)iivii$ Inc'udAa achemaiic wir- 
ing diLagrarra, pans lias, doa&wmblv insttrucUDra. troubfeshooung techniques, and ottwr repair data 




33477 ComrrnMote &4 Cwmpii10r 
33S13 VIC 20 Cwnputer 
33asi Commodore PluiM Computer 
33IS1 Commodore I&*l OiBk Ortwe 



3i*a CommodoC0 tSU Ptit\l6f 
33SiD8 Commodore Cl6 Computer 
33546 Commodore ^70) Monito' 



All packets 
«17.95 each 



GRAPHICS PRINTER INTERFACE 



??' 



i/^. 




The PPI (Paraller Pnnter Interface) <rom DSI Is a hl^- 

performance graptitcs pcinter jnterface for your Cwrimo- 

<Jof8 64 or VIC-20, otlered at an unl»lievable pricef Ths PPI 

fully emulates a Commoelofe pnnler so that all software wntten 

for Commodore computers and primers can be run witti the PPI 

and most arry parallel pnnler PnnI Inie Commodore graptiics and 

alpha'numencs as well a$ any special character sets offered by your 

specific printer WoAs with Star, Epson, BMC. and many more Comes 

complete with all necessary cables lor quicli installation and includes 

easy-lo-lollow user's manual. 



?V^ 



33S65 Parallel Pnnter Interlace 



*44.95. 



DUST COVER and 
"EVERYTHING BOOK" 

INTRODUCTORY SPECIAL 

Gel to know Ljs by orOe'^ng this great dusi covei 
lof your V'IC-30 or Comrr^odore &4 and our cata- 
log, The Everything Book tor the Cormrtooote 
C-6i and VIC20 Home Compilers, for S2 95 
tno emra shipjping or handling charges! Cover 
IS antistatic, transluscenr. 6 gaijge vinyl sewn to 
our exaci>r>g standards vvtlh reintarced seams 
Dtscover the savings er^ easy snoppitV] avail 
aWe ftom Tenen Computer Eipress' 

i^2.95 

31S27 Quit Cover and Cetalsg 




USE SINGLE ^EETS 

IN YOUR TRACTOR FEED 

PRINTER WITH 

PAPER TRACTOR ^ 

Paper Tractor earnes ordinary stieei paper 
tfirough your tractor -teed pnnler' 
Simply place your lettertiead. checks, 
invoices, forms, even legal -size sheets 
into the durable llexible plastic earner arid 
feed into your adjustable tractor -dnve 
pnnter. Works with any printer, cames any 
paper. 



22094 
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SHIPPING CHARGES 

ORDER AMOU^JT CHARGE 

less than $20.00 

S20.00-S39.99 

S40,00-$74.99 

S75.00-$149.99 

S150.00-$299.99 

S300 & up 




NO EXTRA FEE FOR CHARGES 
NO HIDDEN EXTRAS 

ORDER TOLL FREE 

1-800-348-2778 
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Changing Volume. Here is where you can have the 
most fun. By gradually changing the volume of a held 
note, you can make it fade and swell . Using sharp chang- 
es, you can make repeating engine noises. For instance, 
the Helicopter program starts at volume and rises quick- 
ly to 15, then fails again, over and over. If it happened 
faster, it would sound more like a motorboat; if it hap- 
pened slower, it would sound more like a chugging train. 

Combining Voices. Most of the sound effects here use 
more than one voice, usually combining noise with musi- 
cal sounds. With Helicopter, for instance, while voices 
1 and 2 are making the noisy "chopper" sound, voice 
is being sustained at a low level, playing a deep hum- 
ming sound. The combination makes it sound like you 
can hear both the chopping of the blades through the air 
and the thrumming of the engine. To make the 'copter 
seem more distant, you simply delete voice O's tone. 

ONE SOUND IS WORTH A THOUSAND WORDS 

There's a limit, of course, to how much I can explain — 
sounds have to be heard to be understood. The example 
programs included with this column show many differ- 
ent approaches. 

In every program, lines 900 to 990 are a setup sub- 
routine that merely assigns register addresses to variables. 
The programs for the 64 use the following variables for 
the register addresses: 

AD(0), AD(1), AD(2): attack/decay registers for voic- 
es 0, 1, and 2 

SR(n): sustain/release registers 0-2. 

PL(n) and F¥i(n): frequency or pitch registers, low byte 
and high byte. Usually only the high-byte register is used 
for these coarse pitch manipulations. 

GT(n): gate or voice control registers 0-2. 

VL: volume control register. 

The programs for the VIC use the following variables 
for register addresses: 

WC(n): voices through 2. Voice 2 is the noise register. 

VL: volume control register. 

In every program, lines 100 through 190 are used mere- 
ly to access the sound effect -by pressing SHIFT you 
cause the sound to be activated. 

In every program, the actual sound effect is produced 
in lines 20 through 90. To understand what is going on, 
study those lines. The first few lines usually set up the 
sound envelope (with 64 programs) and initial pitch and 
volume values. Then the sound is gated on, and the rest 
of the routine alters pitch and volume to make the sound 
effect. 

Some programs, like the Gunshot variations. Sawing 
Wood, and Boink, make only one brief sound effect. To 
repeat them, you press SHIFT over and over. The Heli- 
copter program repeats until you press SHIFT to stop 
it. The Seashore program repeats with randomized dif- 
ferences until you press RUN/STOP-RESTORE. 

Once you understand what each program is doing, try 
changing small things, like the number of repetitions in 
a delay loop or the STEP value in a loop that changes 
pitch or volume. By changing one value at a time and 
RUNning the program, you can hear how the sound is 



shaped by each element of the routine. It won't be long 
before you'll be developing your own sound effects from 
scratch. 

COMBINING WITH YOUR GAME 

Often it is just fine for your program to stop cold while 
it executes a sound-effect routine. The sound effect when 
the player-figure is "killed," for instance, can take as long 
as you want it to take -the action is halted anyway. 

However, many effects should go on while the action 
continues. This gets much trickier. You have to integrate 
the pitch and volume changes into your movement rou- 
tines. Each POKE to change a sound will slow down the 
movement. As long as you're working in BASIC, that's 
the price you pay for sound, and you'll undoubtedly end 
up simplifying sound or movement or both in order to 
get adequate speed. 

Professional games are written to use machine language 
routines running during interrupts and timed with sys- 
tem timers to create sound effects and play background 
music without slowing down the program. This is not 
possible in Commodore BASIC {though some BASICs, 
like the IBM PC's BASIC, have a background music mode 
that does pretty well). 

But don't let that discourage you. Sound doesn't have 
to be continuous to be effective. If you have excellent 
music during lulls and some .sound effects where they're 
most needed, the player will get the feeling of a com- 
plete game world. 
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End Cartridge Clutter! 

NOW - ANYONE CAN COPY 
C64 CARTRIDGES - FAST! 

CBUS — lets you copy ond store up to 17 
cartridges on a single diskette. 

WE GUARANTEE STORAGE AND 
PLAYBACK OF ALL STANDARD 
COMMODORE 64 CARTRIDGES 

CBUS -The Cartridge Back-up System 

for the Commodore 64 ^ ' ' * ' v 

Price includes CBUS I Cartridge Snapshooter, CBUS II Cartridge 
Emulotor, Diskette with all necessary progroms. Additional 
CBUS Ms available for $i9.95. Please odd $3.00 for shipping and 
handling. 
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And there's no law that says you can't devise sound 
effects even for word games and text adventures. Such 
games play slowly enough that a few clever sound ef- 
fects won't noticeably slow down the action— and will 
add immeasurably to the fun of playing. Why not have 
the sound of somebody walking up or down a flight of 
stairs in a text adventure? Or the swish of a sword-slash 
that missed? Or the crash or an explosion? Why not have 
musical reminders that time is running out, fuel is run- 
ning low, or a prisoner is running away? 

NOTES ON PAST COLUMNS 

For those of you who typed in the Mansion Mystery 
a few months ago and think I cheated you, here are some 
of the problems and how to fix them. 

1. You ordered the disk and the program doesn't run. 
Source of the problem: a few disks were sent out with 
a trashed version of the program on it. Solution: send 
your disk back for a free replacement. 

2. You get an error message when you first run the 
program. Source of the problem: if you ran the Display 
Setup program to create the disk or tape file of the man- 
sion map, and then LOADed and ran Mansion Game 
without turning the machine off and on again, the Man- 
sion Game program found the map already in memory 
and did not execute the setup routines. Solution: turn the 
machine off and on again, then LOAD and RUN Man- 
sion Game. If you still get an error, then you have a typ- 
ing mistake. 

3. Weird things happen with the color when you first 



enter a new wing of the house. Source of the problem: 
you have a very early 64 which does weird things with 
color memory. Solution: buy a new 64 or live with the 
problem -I don't understand why it's happening on those 
few machines and haven't the faintest idea how to elimi- 
nate the problem. There's no logical reason it should be 
happening. 

if you problem doesn't fall under any of these categor- 
ies, then the program doesn't run because you have made 
a typing error. The unfortunate thing is that the program 
deliberately makes hash of screen memory, so that the 
error messages are often completely invisible. I suggest 
that you LOAD your copy of the program and check it 
against the Bug Repellent, or LIST it line by line, check- 
ing it against the printout in Ahoy! Or you can give up 
and send in for the disk... 

That's the problem with mammoth programs hke that. 
They're so long that typing them in is agony, finding ty- 
pos is even harder, and then when it doesn't work you 
get homicidal thoughts. Please don't act out your fanta- 
sies of axe murder and slow torture on me. The disks 
I send in to Ahoy! always contain working versions of 
the programs -I LOAD and RUN every program just be- 
fore mailing the disk. If you want to cause bodily injury 
to someone, I suggest you look at the masthead in this 
issue of Ahoy! and pick a name at random. The over- 
worked, underpaid staff members at Ahoy! are always 
looking tor interludes of violence and terror during the 
long, dull working day. D 

SEE PROGRAM LISTINGS ON PAGE 91 
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Back in June of 1983, Kelvin Lacy 
had a dream. He dreamed of creating 
one integrated program that would 
include a spreadsheet, business 
graphics and a database. A program 
with the power of Lotus 1-2-3. On the 
Commodore 64. People laughed! He 
had just finished OmniWriter, to be 
marketed by HESWARE. ignoring the 
skeptical, he started on ViZASTAR. 

Now, after 15 months, his dream has 
come true. VIZASTAR has a fuli- 
featured spreadsheet, as good as 
Multiplan, But much faster— faster 
than many spreadsheets on the IBM 
PC! It is written 100% in 6502 
machine language code and is 
ALWAYS in memory. It is menu 
driven, using the latest techniques in 
user -friendliness. It is compatible with 
virtually all printers and word 
processors. Up to 9 windows can be 
open simultaneously, anywhere. 
Remarkably, lOK of memory is 
available for spreadsheet use. 



The database is equally impressive. 
Create file layouts by simply painting 
a picture of the layout on up to 9 
screens, showing where a field starts 
and ends; VIZASTAR does the rest. 

Imagine the power of a spreadsheet 
integrated with a database. Now add 
graphics — bar, line, and multi-color 
pie and 3-D "skyscraper" graphs. You 
could access a customer's profile in 
the database, transfer the data to the 
worksheet, and let it calculate 
discounts, sales tax etc. and then 
transfer the updated data back to the 
database. Open up a window 
anywhere and display a graph of your 
data, instantly. This integration is the 
key to VIZASTAR's power— the first 
and only program of this kind on the 
C-64. All commands can be 
automated, so you can "program" 
your own applications and run them 
with one keystroke. 




Aclud screen dump pointed by VIZASTAR 

VIZASTAR includes a cartridge, a 1541 
diskette with a backup, reference and 
tutorial manuals. VIZASTAR is ONLY 
$119.97. We are so positive you will be 
delighted with VIZASTAR that we offer a 
15day money-back guarantee. Try it risk- 
free! Compare VIZASTAR with any other 
spreadsheet or database. 
So order today. Call or send a check or 
Money Order. Calif, residents add 6.5% 
sales tax. MC/VISA accepted. 
Add P&H; UPS-S3; COD, Canada-$6 
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Tfiidemarks: Lotus 123 Loim Development. Commodore 
M/CommwJofe DecrfonK^ Lid. Mutiiplan/Microsdll. 



1125 E. Hillsdale Blvd., Suite 104 

Foster City, CA 94404-1609 

(415) 341-5606 
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SOUND-A-RAMA 
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ound-A-Rama displays the incredible sound 
capabilities of the Commodore 64. This 
menu-driven program includes fifteen fantas- 
tic sound effects, a Drum Machine, and a 
Computer Tape Recorder. You type in the letter corre- 
sponding to the desired sound effect, and the effect plays. 
The letter of your choice lights up to indicate which 
effect is playing; otherwise the letters are light blue. 

The Drum Machine is a subroutine containing six 
sounds of a drum set. You play it by hitting number keys 
1 through 6. With the Computer Tape Recorder, you play 
music on the number keys. The computer "records" what 
you play, then reproduces the melody just as you played 
it— with correct pitches and timing. 

For best sound quality (especially with the Drum Ma- 
chine), you may want to play the computer sounds 
through a hi-fi system. To do this, you can obtain a long 
"patch cord" with an RCA phono plug on each end (avail- 
able at Radio Shack). Plug your computer audio output 
into an "aux" input jack on the hi-fi system. 

These sound effects can be added to your own pro- 
grams by typing in the appropriate subroutines and ini- 
tializing statements. Each effect is preceded by its title 
in a REM statement. Lines 1530-1550 should also be in- 
cluded; they clear the sound chip and define the sound 
parameters. In addition, the Computer Tape Recorder and 
Drum Machine have initializing statements at line 1860 
and lines 1920-1930 respectively. The main loops for these 
subroutines are near the beginning of the program. 

HOW THE PROGRAM WORKS 

In the sound subroutines, up to three kinds of FOR- 
NEXT loops are used. FOR F = ... NEXT F incre- 
ments or decrements frequency. That is, it sweeps the 
pitch from low to high, or vice versa. FOR D = ... 
NEXT D increments or decrements duration. It varies 
the duration or length of tones. FOR N = ... NEXT 
N increments the number of repetitions, to repeat an ef- 
fect several times. 

Described below are the definitions of the program var- 
iables. All the following variables refer to Voice I ex- 
cept as noted: 



S = 54272, the start of sound-chip memory 

FL = S = lower frequency (least significant bit) 

FU = S-l-1 = upper frequency (most significant bit) 

W = S+4 = waveform 

AD = S+5 = attack/decay 

SR = S+6 = sustain/relea.se 

W(2) = S+Il = Voice 2 waveform 

FL(2) = S+7 = Voice 2 lower frequency 

FU(2) = S+8 = Voice 2 upper frequency 

AD(2) = S-l-12 = Voice 2 attack/decay 

SR(2) = S+I3 = Voice 2 sustain/release 

SL = S-l-14 = Voice 3 lower frequency, used in ring modula- 
tion and synchronization modes. 

SU = S-l-15 = Voice 3 upper frequency, used in ring modula- 
tion and synchronization modes. 

S-l-22 = filter upper cutoff frequency 

S+23 = filter and resonance modes 

V = S-(-24 = volume and bandpass 

F = frequency (when used in a FOR-NEXT loop) 

D = duration (when used in a FOR-NEXT loop) 

N = number of repetitions (when used in a FOR-NEXT loop) 

POKEW,19 enables synchronization 

POKEW,21 enables ring modulation 



Described below are the fiinctions of the program lines. 
Let's start at the program initialization: 



Line 1530 clears the sound chip 

Lines 1540-1550 define the sound parameters. 

Lines 1560-1750 are the screen display, the main menu. 

Line 1760 resets the attack/decay and sustain/release to nominal 
values for most of the sound effects. 

Line 1770 restores a yellow letter to light blue after a sound ef- 
fect has played. 

Line 1780 gets keyboard input. 

Line 1790 converts the typed-in letter to a number for use with the 
GN-GOfTO statement in tine 1830. 

Line 1800 colors the typed-in letter yellow on the screen to indi- 
cate which sound effect is playing. 

Lines 1810-1830 branch to the appropriate subroutines for each 
sound effect. 

Lines 1860-1900 are the Computer Tape Recorder imxiaWzsAion. 

Lines 1920-1970 are the Drum Machine initialization. (Note: ini- 
tializations are put at the end of the program so that the main 
loops can go at the beginning of the program. This increases 
execution speed. For the same reason, numeric variables are 
defined as alphabetic variables in the Computer Tape Re- 
corder and Drum Machine subroutines. 
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Lines 130-1500 are the sound effect subroutines. 

Let's briefly describe what's happening in each sound- 
effect subroutine. I won't mention the ADSR settings since 
they are self-explanatory. In the last line of each effect, 
the voice is turned off. If the filter mode or resonance 
have been used, they are also turned off. Then the pro- 
gram goes back to line 1760 to reset the selected letter 
to blue and get a new keystroke. 

Computer Tape Recorder is a program in itself. To play 
a note, the user hits a number key for a particular duration. 
The program (I) assigns the note's number to a number- 
array element, (2) converts the number to a frequency, 
(3) determines the note's duration (by counting elapsed 
time from TI$ ="000000"), and (4) assigns the duration 
to a duration-array element. This process is repeated each 
time a note is struck. 

During playback, each successive element of the stored 
arrays is used to reconstruct the entered melody. That 
is, each number in the number-array is converted to a 
frequency, and is played for the duration indicated by each 
element of the duration-array. This process is repeated 
for each note in the melody. 

Let's explain each line of Computer Tape Recorder. In 
this explanation, alphabetic variables have been converted 
back into numbers for clarity. 

Line 130 gets keyboard input, and assigns each keystroke to an 

element of the number-array C$(N), 
Line 160 can be rewritten as 

I60POKES-I-4,16:D(N-1)=T1:TI$="000000":POKES+4,17: 
POKES -l-l,10*VAL(C${N) ) 

Line 160 turns off the waveform (roKES-^4,16), assigns the dur- 
ation TI of the note just played to a duration array D(N-l), 
resets the timer (TI$=''000000''), turns on the triangle wave- 
form (POKES+4,17), and pl^s the frequency 10*VAL(C$(N) ). 

Line 170 increments the array number (N=N-H) then returns to 
line 130 to get more notes. 

Line 140 says, "If keyboard input is the letter 'F and N > 1, then 
play the recording." M is set equal to N, the index number 
of the last array element. Then N is set to 1 to reset the array 
to the beginning, and the program goes to Line 180. 

Line 180 turns on the uiangle waveform, plays the frequency indi- 
cated by the number-array element for the duration indicated by 
the duration-array element, then turns off the waveform. 

Line 190 increments the array-element index. If the array-element 
index equals M (the index of the final element played), then 
the Computer Tape Recorder subrouutine reruns. 

Drum Machine is another program-within-a-program. 
Line 220 gets keyboard input. Line 240 branches to the 
appropriate subroutine for each drum sound. 

Each drum sound is a tone or noise set to a certain 
ftiequency and attack/decay/sustain/release. At the begin- 
ning of the "tom-tom" and "kick drum" sounds, the vol- 
ume is quickly dropped and restored to maximum. This 
creates a "click" which simulates the drumstick hitting 
the drum. 

Winding Down Record is a sequence of four notes 
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played over and over with increasing duration and de- 
creasing frequency. 

Pulverizer enables synchronization, sets the Voice-3 
upper frequency, and sweeps Voice 1 downward in pitch 
at a rate (STEP-N) that increases with each repetition. 
The sweep is repeated 20 times. 

Disintegrator sets the Voice-3 frequency, enables ring 
modulation, and repetitively sweeps Voice 1 up in fre- 
quency at an ever-increasing rate, three times. 

Old Washing Machine plays a triangle wave (POKE 
W,17) for a short duration, and turns it off with a saw- 
tooth-wave shutoff (POKE W,32). This creates a noise 
burst. The frequency is doubled, and the process is re- 
peated until the frequency equals 64. This entire process 
is repeated 20 times. 

Energy levels sets the Voice-3 frequency, sets the 
Voice-1 AD/SR, enables ring modulation, and sets the 
Voice-1 upper frequency to a frequency that depends on 
time T. 

Nervous sets the Voice-1 frequency, sets the Voice-3 
upper frequency, enables ring modulation, and sweeps 
the Voice-3 lower frequenq' rapidly up and down 20 times. 

Sproing first plays a short-duration low-frequency saw- 
tooth wave. Then it sets the Voice-1 frequency, enables 
synchronization, and rapidly sweeps the Voice-3 upper 
frequency upward at an increasing rate, 50 times. 

Force Field sets the Voice-3 frequency, sets a slow at- 
tack, sets the Voice-1 frequenty, enables ring modulation 
for about five seconds, then fades out the volume. 

Involution enables the bandpass filter, sets maximum 
resonance, turns on the triangle waveform, and repetitive- 
ly sweeps down the frequency and the bandpass center 
frequency at a gradually increasing rate. 

Aviary sweeps upward between two random frequen- 
cies 15 times, then sweeps upward rapidly (warbles) a 
random number of times. This process is repeated. 

Ghosl sweeps the Voice-1 frequency rapidly up and 
down, while the average frequency gradually decreases. 
This process is repeated. 

Song of Saturn turns on maximum resonance, turns 
on the bandpass filter, plays noise at a random frequen- 
cy, and sweeps the bandpass-filter center frequency from 
to a random number. This process is repeated 10 times. 

Ketchup Squirts turns on maximum resonance, turns 
on the bandpass filter, and sweeps the bandpass filter up- 
ward at a random rate while playing a random-frequen- 
cy sawtooth wave. 

Elf Laugh plays a sawtooth-wave tone burst followed 
by a noise burst (POKE W,128), at successively lower 
frequencies, 10 times. This forms a "laugh cycle." The 
average frequency is raised each time the laugh cycle is 
repeated (three times). 

Throb sets the Voice-1 upper frequency. Then, while 
sweeping the Voice-1 lower frequency down slowly, it 
plays a sawtooth-wave tone burst followed by a triangle- 
wave tone burst. D 

SEE PROGRAM LISTING ON PAGE 94 
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The arrival of the C-L28 at 
our offices on April 10th 
heralded Commodore's 
^^^^ leavetaking from the home 
l^^^l computer business. As the 
Ic^o pnoclaims in no uncer- 
tain terms, the C-128 is a 
personal computer. Person- 
ality is definitely one thing 
the C-128 has plenty of. 
According to some counts 
it can be credited with no 
fewer than five. 

Many of us will be inti- 
mately familiar with one of 
its personalities, that of the 
C-64. As promised, there 
is a fiiU-fledged C-64 hid- 
den within the confines of 
the C-128. There are three 
ways to bring out the C-64. 
For starters, simply hold 
down the Commodore logo 
key when you power up 
the computer. This will 
automatically bring forth 
the C-64 within. If a 
C-64 cartridge is left in 
the expansion port, the 
C-64 mode will auto- 
matically be selected. 
The Epyx Fast Load 
cartridge serves admirably 
well in this respect. From 
C-128 mode you can tell the 
machine to GO 64. How- 
ever, you will have to be 

firm. The C-128 will 

prompdy question this demeaning re- 
quest. Just respond in the affirmative 
and the familiar blue on blue of the 
C-64 display will blossom forth on 
your video monitor. 

A true C-64 it surely is. Commo- 
dore has gone to great lengths to in- 
sure compatibility with all existing 
C-64 software and peripherals. Even 
the nice numeric keypad located at 



By 

Morton Kevelson 




Top: all 92 keys of the C-128. Main section nearly dupli- 
cates the C-64. Bottom: closeup showing numeric keypad, 
READER SERVICE NO. 175 

the extreme right of the keyboard (see 
photo) is disconnected in C-64 mode. 
Once in C-64 mode, the computer re- 
sists all attempts to leave it. Even 
turning it off does not always work. 
We found that it took more than a few 
seconds in the benign state for all 
feelings of C-64ishness to dissipate. 
But enough of this talk about the old. 
Let's get on with the new. 



THE KEYBOARD 

This is definitely a step in the right 
direction. The 92 keys have a nice 
feel to them. Touch typists will be 
pleased to find a raised dimple on the 
home keys (F and J). Ac- 
countants will likewise ap- 
preciate the similar treat- 
ment of the 5 key in the nu- 
meric keypad. This keypad 
should go a long way to- 
ward easing some of the te- 
dium associated with mar- 
athon spreadsheeting into 
the wee hours. We would 
have liked to have seen the 
parenthesis, asterisk, and 
slash in the keypad as well. 
However, we admit that 
these are the least likely to 
be used for most ac- 
counting applications. 
With the exception of 
the function keys, all the 
keys on the top row are 
new. These are not just 
for show. The ESCape 
key supports a host of 
screen editing functions. 
These include erase to 
end of screen, erase to 
end of line, erase to be- 
ginning of line, automa- 
tic insert mode, insert 
line, delete line, scroll 
screen, set window, and 
toggle between 40/80 col- 

umn display. All of these 

sequences work under program con- 
trol. To use them simply PRINT 
CHR$(27), followed by the appropri- 
ate command letter. 

Incidentally, the escape character 
can be generated by holding down the 
CONTROL key and pressing the co- 
lon (:). This is true for both the C-64 
and the C-128. The results will be dif- 
ferent for the two machines. The 
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C-128 is always placed into ESCape 
mode awaiting a command character 
for immediate execution. The C-64 
will generate a reverse-left-square- 
bracket when in quote mode. Thus, 
for the C-64 the above key sequence 
can be used to put an ESCape code 
into a PRINT statement. 

Some very subtle alterations are 
buried beneath the keyboard. Turn up 
the volume on your TV or monitor, 
hold down the CONTROL key, and 
press G. A pleasing bell tone will 
sound. PRINT CHR$(7) will elicit 
the same effect. This keyboard "bell" 
is a standard ASCII code from the 
early days of teletype terminals; a 
useful feature which was sorely 
missed on the VIC and C-64. 

The ALT key is to access an alter- 
nate character set under program con- 
trol. The HELP key is for use imme- 
diately after a SYNTAX ERRORS 



ENVELOPE and SOUND com- 
mands. The former includes ten built- 
in musical instruments. The latter 
supports the creation of complex spe- 
cial effects. For musicians, the PLAY 
command accepts musical notation. 
In feet, the built-in sound commands 
have more features than some music 
editor programs we have seen. 

The programmer's aid commands 
will ease many of the more tedious 
programming tasks. The function 
keys are preprogrammed with useful 
phrases. The, KEY command easily 
reprograms the function keys for even 
greater profundity. Lines can be 
AUTOmatically numbered, RE- 
NUMERED and DELETEd en 
masse. The proper effects are ex- 
tended to GOnOs and GOSUBs. The 
TRAP, trace (TRON, TROFF), 
RESUME, and HELP commands 
should keep rampant SYNTAX 



massive 122365 bytes ftee. This is 
nearly 120 kilobytes as computers 
count. There is one catch. BASIC 
memory is partitioned into two banks. 
Bank 0, which is used for the pro- 
gram storage, has 58,109 bytes avail- 
able. Bank 1 provides 64,256 hytes 
for variable storage. Note that mem- 
ory usage is restricted to these pre- 
defined applications. 

The full screen editor can accom- 
modate program lines up to 160 char- 
acters long. It links four screen lines 
when in 40 column mode and two 
screen lines in 80 column mode. This 
is certain to result in competitions for 
the longest LISTing program line 
amongst aficionados of compact code. 

Long garbage collection delays 
should also become a thing of the 
past. Try the following in both C-64 
mode and C-128 mode: 







The upper radiation shield of the 
C-128 serves as a heat sink as well. 

The offending BASIC line is dis- 
played with the part following the er- 
ror in reverse. The 40/80 DISPLAY 
key determines the screen display 
mode on power up. It has no effect 
once the computer is turned on un- 
less the reset button is pressed. 

BASIC 7.0 

This version of Commodore 
BASIC is definitely loaded. Gone are 
the days of POKEing and PEEKing 
to generate sounds or program sprites, 
or manipulate the color displ^. There 
are now specific BASIC commands 
to handle all of these chores. Includ- 
ed are a built-in sprite editor and 
music editor. The accompanying ta- 
ble summarizes all BASIC 7.0's en- 
hancements as compared to 2.0. 

Acoustically inclined programmers 
will be particularly pleased with the 
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The main circuit boani sports a neat 
and uncluttered layout. 

ERRORism under control. About the 
only significant shortcoming is the 
lack of a string FIND or SEARCH 
command in the programmer's aid 
section. 

The structured programming com- 
mands deserve special attention, in 
particular the IE .THEN BEGIN: 
(program Iines):BEND:ELSE se- 
quence. The Block-BEGIN and 
Block-END structure allows die writ- 
ing of complex routines as part of an 
IF. .THEN decision without the need 
of GOTO or GOSUB. This should 
definitely promote much neater and 
easier to follow program structures. 

Numerous other improvements 
abound, not the least of which is 
memory. Even the most determined 
BASIC programmer will have a tough 
time exhausting the available supply. 
The startup message proclaims a 



Sixteen 64 kilobit dynamic RAM chips 
make up the 128K of main memory. 

10 DIM A$(255) 

20 FOR J=l TO 255 

30 A$(J)="A"+"B" 

40 NEXT J 

50 T=TI 

60 M=FRE(1) 

70 PRINT TI-T 

The number displayed is the time 
in jiffies (1/60 second) it took to per- 
form garbage collection. Try it in 
both C-64 and C-128 modes. For the 
C-64 it should be about six seconds. 
For the C-128 it will be about 1/6 of 
a second! 

THE DISPLAYS 

Both 40 and 80 column displays 
are built in. In 40 column mode the 
default colors are light green on a 
dark grey background with a light 
green border. For 80 column mode 



C-64 and 
C-1 28* OWNERS: 





Do you know the full contents of all your Disks In your Software Library? 

Stop playing "Hide-and-Seek" with your Disk software! Let your Commodore 64'" 
"memory" do all the work for you. Easy Manual and Program Menu-Screens make 
everyone a "pro" in 1 day! 

Here's a small "PEEK" at SOME of the FULLY-INTEGRATED POWER of 
PRODUCTIVITY at your fingertips. . , 



MASTERDISK©: 

• a SORTED Master Catalog of ALL your Disks 
(even those un-listable "protected" Directories: 
Names, IDs. File info, etc.) 

• Search + Listany File/Disl</ID in seconds, auto- 
matically, in any of SEVEN WAYS. 

• Transfer ML-Programs or Files from Disk to 
Disk (CATEGORIZE your software) 

• Stop disaster before it strikes: change dupli- 
cate IDs fast, without total re-copy. 

• Restore accidentally-scratched files in a flash, 
with VERIFICATION that they're OK. 

• Works with 1 or 2 Single Disk Drives (1541. 
MSD. etc.) with or without Printer (Commodore 
or ASCII). 

• Handy-Reference Card for HEX/ASCIt/ 
BINARY-TO-DECIMAL VALUE TRANSLA- 
TION + FORMULAS, included FREE. 

• All this + MUCH MORE, for just $34.95. (U.S.A.), 



NEW!! - IVIASTERDUAL©, 

"Son Of MASTERDISK©" . . . 

same power, but with 

Dual Drive Speed! 

Same Catalog Features as MASTERDISK® 

Same Disk repair functions, too 

For all C-64 & C-128* systems with Dual Disk 

Drives (4040. MSD, etc.) 

Utilizes all Dual Drive functions for maximum 

speed and ease of use 

FREE Handy Reference Card for HEX/ASCII/ 

Binary to Decimal Translation + Formulas 

Experience FULLY-INTEGRATED POWER for 

just $29.95 (U.S.A.), $39.95 (Canada) 



$45.95 (Canada) 



•MASTERDISK^' and MASTERDUAL© are also compatible with the NEW C-128 (in C-64 Mode)! 

Don't MESS with anything L£$SI OUR CUSTOMERS WRITE: 

"Been meaning to write and let you know how much I've enjoyed it . . . 
So. let me say that MASTERDISK is EXCELLENT.' - Middletown. NY 

"... just the thing I need. " — APO, NY (Germany) 

"Hope to get my [MASTERDISK} yesterday. " — Maple Grove. MN 

"I am impressed with your product and would like to be able to endorse it for TPUG."— Ontario, Canada 

"... nothing else even comes close! " — Burlmgton. lA 



We ship within 24 hours! Send Money Order or Check to: 



rNTEGRATED-SOFTWARE SYSTEMS 

P.O. Box 1801, Ames. lA 50010 

VISA M C C O D . CALL (515) 233-2992 

9 am - 9 pm (Central Timel Mon.-Fri. 

Add $3 Shrpplng. plus S2 Foreign, COD. 

lA Residents add 4% Sales Tax. 



IN CANADA: Cricket Distribution Co., 

P.O Box 953, Cobourg. Ontario. Canada K9A 4W4 

VISA M ceo D. CALL (416) 372-3692 

9 am ■ 6 pm (Eastern Time) Mon -Fri. 

Add S3 Shipping plus $2 C.O.D. 
Ontario Residents add 7% Sales Tax 



Whether you have tens or hundreds of disks, now YOU can be the MASTER 
of your TOTAL Software Library! 
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you will need a high resolution RGB 
monitor for best results. In a pinch 
the 1702 monitor front connection 
could be used (see sidebar on this 
page). The results were far fipom ideal, 
without color, but better than the soft 
80 column displays we have seen on 
the C-64. We did discover that the 
character matrix in 80 column mode 
is only six pixels wide. Traditional 
Commodore characters are all eight 
pixels wide. 

Both displays remain active at all 
times. There is even a dedicated two 
kilobyte static RAM chip on board 
for the 80 column display. Thus you 
can write messages on the 40 column 
screen while working on the 80 col- 
umn display. Of course two monitors 
are required for maximum benefit. 
Since the display mode is switchable 
under program control, this could be- 
come an added bonus for many appli- 



cations. Note that only the 40 column 
mode is supported by the BASIC 7.0 
graphic commands. According to 
Commodore's Jim Gracely, the C-I28 
will have some bit map capability in 
80 column mode. The horizontal res- 
olution will be a full 620 pixels. 

The 80 column display has sever- 
al features not available in the 40 col- 
umn mode. Onscreen underlining can 
be turned on with a CONTROL B 
(CHR$(2) ) and turned off with a 
CHR$(130). The underline feature 
also "eats" the pixel which displays 
the lower case descenders of the 
screen characters. Characters can be 
set to flash at the cursor blink rate 
with a CONTROL O (CHR$(15) ), 
A CHR$(143) turns flash off. Al- 
though neither a CHR$(130) nor a 
CHR${143) can be generated direct- 
ly from the keyboard, both flash and 
underline will be turned off by a car- 



riage return. 

Commodore plans to market two 
monitors for the C-128. The 1901 will 
be a monochrome monitor suitable 
for either 40 or 80 column work. The 
1902 will be a dual purpose monitor 
with both RGBI and composite vid- 
eo inputs. A switch on the front pan- 
el will select its operating mode. This 
will allow both C-128 displays to be 
easily accessed by a single monitor. 
All that is lacking is the ability for 
the C-128 to switch the monitor's 
mode under program control. If you 
are buying a non-Commodore moni- 
tor, bear in mind the intensity re- 
quirement of the RGBI input. Some 
digital type monitors lack this ana- 
log capability. These may not be suit- 
able for the C-128. The RGBI port on 
the C-128 is similar to that on the 
IBM PC. Thus monitors which work 
with that machine should work with 






Displaying 80 Coluinns with the C-128 and 1702 Monitor 



Although a high resolution color mon- 
itor with RGBI {red, green, blue, and in- 
tensity) inputs is needed for the best re- 
sults, it is possible to get a usable 80 col- 
umn display with the C-128 and Commo- 
dore's ITO color monitor. This will allow 
the use of 80 columns, with a minimum 
of investment, while waiting for Commo- 
dore to distribute the new 1902 color 
monitors. 

All that is needed is a suitable adapter 
cable. The 80 column video port on the 
C-128 uses a readily available 9 pin "D" 
type connector. This is the same type of 
connector used for the joystick ports on 
the VIC 20, C-64, and C-128. It is avail- 
able as Radio Shack catalog number 276- 
1537 for $1.99. If you use this connector 
you will have to be able to solder on a 
length of shielded coaxial cable. Audio 
type cable works fine for the short length 
which is needed. The other end of the 
cable will be terminated with a standard 
RCA type audio plug. 

Soldering can be avoided by using a 
joystick port extender cable. These are 
available for under $10.00 at most stores 
which sell joysticks and other video game 
accessories. Just cut the cable in two, 
making sure that a sufficient length of 
wire remains attached to the "mate" con- 
nector end of the cable. That is the one 
with the pins. The "female" end has the 
sockets for the pins. (We are not certain 
how this chauvinistic terminology came 
about but we understand that it dates back 
to the early d^s of radio and electron- 
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ics.) The cut end of the cable can then 
be terminated with a "solderless" RCA 
type phono plug available as Radio Shack 
catalog number 274-383 (4/$l,29). 

If you do use the second apptoach keep 
in mind that the joystick extender cable 
is not shielded and may cause interfere 
ence with any televisions or radios in the 
vicinity. Check with your family and 
neighbors if this is a possible concern. 
You will also need access to an ohmeter 
or other continuity checker to determine 
which of the nine wires in the cable go 
to the proper pins. Also be sure to insu- 
late the seven unused wires to prevent any 
elect rical shorts. 

Only two wires have to be connected. 
One of these is the ground connection 
available on both pins 1 and 2 of the "D" 
connector. Either one will do. This wire 
should be connected to the shield or outer 
part of the RCA plug. The second con- 
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tains the intensity portion of the video 
signal. This is available on pin 7 of the 
"D" connector. This wire should be con- 
nected to the center pin of the RCA plug. 
The pins are easy to identify as the con- 
nectors have the pin numbers molded into 
the plastic. The accompanying drawing 
show^ the pinout of the 80 column port 
while looking at the C-128 from the back. 
lb complete the hookup you may want 
to insert a "Y" audio adapter cable into 
the audio line at the back of the monitor. 
This will make available the sound por- 
tion of the signal from the 40 column port 
to both the front and back connectors. 
This will not be needed if you normally 
use the front connection on the 1732 mon- 
itor. Just leave the audio plug where it 
normally is. If you are using the back 
connection for 40 column display (the 
best arrangement) then the selector 
switch on the back panel of the 1702 can 



PInout of 80 column video 
port as leen from rear of 
the C-12a. Pin t or 2 li uied 
for ground connection, pin 
7 for the Intensity portion 
of the video signal. 



Left: empty 28 pin socket between 16K ROM and 6526 CIA chip. 48K of ROM can be seen here. Center: dual 
ndeo display sections allow simultaneous 40 and 80 column displays. Right: twin joystick ports. 



the C-128 as well. 

THE HARDWARE 

As with all recent Commodore 
computers, the C-128 comes in two 
parts, a power supply module and a 
keyboard/CPU. The power supply is 
massive, with more than twice the 
volume of the C-64 power supply. It 
also has a replaceable fuse and a 



be used lo swiich between the 40 and 80 
column displays. Of course computer 
output will still have to be directed as 
required. 

To finish off. adjust the brightness and 
contrast controls on the monitor from 
panel for best results. We found that they 
had to be turned down quite a bit in obtain 
a usable image. Color in 80 columns will 
not be available with this connection. 
However, the flash and underline features 
will work. 

We haven't tried this with a 1701 mon- 
itor but we see no reason for it not to 
work with that device as well. 

An even sharper picture will result if 
the 80 column screen is reversed to a 
white background by an ESCape R com- 
mand sequence. 



80 COLUMN RGBI 
PORT PINOUT 



Pin# 


Descrrptlon 


1 


Ground 


2 


Ground 


3 
4 
5 
6 


Red signal 
Green signal 
Blue signal 
Not used 


7 
S 


Intensity signal 
Horizontal drive 


9 


Vfertical drive 



screw-together case. Unlike the C-64, 
this power supply can be repaired. 
We don't know what Commodore has 
in mind, but with just the C-128 on- 
line the power supply barely got 
warm. We do hope that Commodore 
will continue to supply this open con- 
struction, as opposed to the potted 
design currently in use for the C-64. 
Inside the computer, the main cir- 
cuit board is fully shielded. The up- 
per shield also serves as a heat sink 
for the large scale inleentted circuits. 



sion, perhaps some built-in applica- 
tion software. 

The accompanying photographs 
tell the entire story. 

EXPANSION RAM 

Commodore plans to make up to 
512 kilobytes of expansion RAM 
available for die 128. It has not been 
decided as of this time whether this 
will be available only as a RAM disk 
option or as bank-switched RAM. 
The present thinking is some kind of 




Left: 8502 microprocessor for 64 Clockwise from top: cart port, power 
and 128 mode; right: ZrSOfor CP/M. connector, on/off switch, reset button. 



A seri^ of springlike "fingers," 
stamped in the sheet metal, reach 
down and touch the chips in the ap- 
propriate spot. A dab of thermally 
conductive silicon compound ensures 
good heat transfer. We found no sig- 
nificant hot spots after extended pe- 
riods of operation. 

A minimum of 48 kilobytes of 
ROM make up the C-128 operating 
system and BASIC. Keep in mind that 
16 kilobytes are actually the original 
C-64 BASIC and Kemal. This still 
leaves twice that amount for the en- 
hanced features of the C-128. In the 
midst of the ROM cluster we found 
an empty 28 pin socket. This opens 
the possibility of future ROM expan- 



combination of the two. Details will 
follow when available. 

WHATS NEXT? 

We still haven't touched on the 
built-in CP/M* capability. Acconding 
to die accompanying manual, the 
CP/M 3.0 Plus operating system will 
be able to access all of the C-128 col- 
or and sound capabilities as well as 
both the 40 and 80 column displays. 
When using the 40 column display 
the screen becomes a horizontally 
scrolling window on an 80 column 
line. Although not ideal, this does 
present a workable compromise to al- 
low the use of 80 column CP/M soft- 
ware with a 40 column display. The 
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Top, I to r; RGBl connector, RF modu- 
lator, composite video and serial ports. 




Power supply: transformer (left), rec- 
tifier, and voltage regulator boards. 




An 80'Column display using the 1702 
color monitor (see sidebar, p. J2). 



"s » C91W iisfufl ff m c-in ei i 

I 4 * 



The e!|tts mm mt hi*M 'M 



Qoseup of 80 column display on 1702. 

CP/M system disk and a utility disk 
will be supplied with the computer. 
Two more CP/M utility disks will be 
supplied with the 1571 disk drive. 

As of this writing we are still wait- 
ing for the CP/M system disk, re- 
quired (along with the 1571 disk 
drive) to book CP/M on the C-128. 
Interestingly enough, of all the C-64 
accessories we tried, only the orig- 
inal C-64 CP/M cartridge would not 
work. Of course this can be con- 



BASIC 7.0 EXTENSIONS 
TO BASIC 2.0 



The following commands are 
included in BASIC 7.0 in addition 
to all of the BASIC 2.0 commands. 

Pn^rammer's Aid 

AUTO lincremcntl-auiomalic line num- 
bering wiih specified increment 
DELETE iline#]|-linc#l -deletes spe- 
cified Htie or range of BASIC lines (di- 
rect mtxle only) 

HELP-displays line with BASIC pro- 
gram error 

KEY IkeyiC.stringl-assigns string to 
specified function key 
MONITOR- calls the built-in macKine 
language monitor 

RENUMBER (new starting line* [.in- 
crenient[.old starting line#|]|- renumber 
BASIC program (direct mode only) 
RESUME [fine#/NEXT| -continues 
program after TRAPping an error 
TRAP iline#|- intercepts BASIC pro- 
gram errors, branches to specified line* 
TRON-trace mode, displays line# of 
currently cxccutitig BASIC statement 
TROFF- turns off trace mode 

DOS Support 

The disk drive command channel (sec- 
ondary address 15) is automatically 
OPENed by these command.s as required. 

APPENIWIf,fname[,Ddv/(niON \ii\tf\ 

- opens the specified file for writing. Ap- 
pends subsequent data to end of file 
BACKUP Ddr# TO Ddr# [pN Udv#] 
-duplicate command for dual drives 
BLOAD "fname"ION][,Bbank#] 
[,Pstart addr] - performs a binary load 
to ihe specified bank and address 
BOOT '^nanie"[,Ddr#][,Udv<'] -loads 
a binary file and executes at the start ad- 
dress 

BSAVE "fname"[,Bbank#] [,Pstart 
addr][TO Fend addr]- saves a binary 
file 

CATALOG -see DIRECTORY 
COLLECT [Ddr#][,ON Udv#]- same 
as BASIC 2.0's VALIDATE command 
CONCAT [Ddr#,]"source file" TO 
[Ddr^ryest. file" [ON Udv#]- merges 
two files 

strued as true compatibility, as we 
know of many C-64's which will not 
work with the cartridge. D 



COPY [Ddr#,] "source file" TO 
[Ddr^l',] "desL file" [ON Udvfl-same 
as BASIC 2.0 

DC LEAR Ddr/!'[ON Udv#]- clears all 
open channels 

DCLOSE[#lfl[f)N U dv#] -closes all or 
a single disk file 

DIRECTORY [Ddr#][,Udv#] LTile- 
name"] -displays disk directory without 
affecting current program 
DLOAD "iiame"[,Ddr#)[,Udv#]- 
LOADs from disk 

DOPEN)l'lf,"fname"[,Ly] [,Ddr#][,ON 
Udv#](,W]- opens a sequential (relative 
if L is present) file for read or write 
DSAVE "name^LDdr^lUUdv*] - SAVEs 
to disk 

DVERIFY "fname"[,Ddr#] [,Udv#] 
t, relocate flag] -verifies a disk file 
against memory 

HEADER "tiame"[,lidiiq, Ddr#[jON 
Udvff]- formats a disk; BASIC 2.0's 
NEW command 

RECORD#lf,r€c/!'[,byte#]- adjust rela- 
tive file pointers 

RENAME t,Ddr/C]«old name" TO "^ew 
name"[,Udv#]- renames a disk file 
RUN "fname"[,Ddr#][Udv#]- LOADS 
and RUNs the specified file 
SCRATCH "^le name" [,Ddr(!f] [,Udv#] 
—erases a disk file 

Notes for DOS commands 

dr# = drive number, i.e. or I 
AvM = device number, i.e. 8 or 9 
id# = two character disk ID 
If = logical file number 

Structured Programming 

BEGIN/BEND -defines a block of code 

for use after THEN and ELSE 

DO [UNTIL bool arg WHILE bool 

srg] program statements [EXIT] 

LOOP [UNTIL bool arg WHILE bool 

arg] 

IF bool arg THEN statement [:ELSE 

statement] 

bool arg = logical expression which is 

either true or felse (-1 or 0) 

Enhanced User Interface 

BANK -selects 64K RAM bank for 



*CVftA is a registered trademark of Digi- 
tal Research Corporation. 
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PEEK and POKE 

GETKEY-same as 10 GET AS: IF AS= 

-"THEN Gcynoio 

G064- switches lo Commodore 64 
mode 

PRINTt#1fnl USING format list;print 
list; - formatted PRINT statement 
FUDEP*! to 4 chai^cters"- redefines 
PRINT USING symbols 
RREG [a var][,[x var][,[y var][^ varj]] 
-assigns microprocessor register values 
to specified variables on return from a 
SYS call 

SLEEP N- delays program for N sec- 
onds 

Graphics Conimands 

BOX [c-s#|.xl^l[,)(2^21I.angle] 

l,patntl]-draws a rectangle 
CHAR |c-s^,col,r(i» J.H3it|[,r>Ti-flagJ - 
displays text on both the lent and the 
graphic sca-cns; equivalent to PRINT AT 
CIRCLE |c-s#).[xc^vc),xrl^r)|.[sa|(,eal 
[,angk'|[,inc|J]]] -draws a circle 
COLLISION typcIJine*] defines 
handling of spriie/background/light pen 
collision interrupt 

COLOR c-s#,color#,- assigns colors to 
one of the seven color sources 
DRAW t-s#|,xIvVirrOx2;v2,..]] -draws 
doLs. lines, and shapes 
GRAPHIC mode[^lear(.s]/CLR-allo- 
catcs or deallocates a ten kilobyte graph- 
ic area for bit mapped graphic mtxle; se- 
lects between 40 and 80 column text; s 
is first line of text for split screen 
LOCATE Jtjf- places the pixel cursor on 
the screen 

MOVSPR #,x^v moves or ItKates sprite 
It specifics sprite number; x and y can 
be absolute or relative positions or an- 
gle and speed 

PAINT Ic-s#|(,[xo]I.nil-model)-fills 
an area with color 

SCALE (l/0]{,xmax^max)- scales 
drawing coordinates as specified; defaults 
to 1023 

SCNCLR- clears the current screen 
SPRCOLOR-scLs multicolor 1 and 2 
for all sprites 

SPRDEF-calls built-in sprite editor 
SPRITE #[.Ion/ofr]|,IfBndt(,[pn(.rity] 
t.hor. exp.|(,(vert. expll,mode|]]ll - sets 
various sprite attributes 
SPRSAV- saves a sprite image 
SSHAPEstrinK-variable,xKvll.x2^>2] 
-saves a rectangular graphics screen as 
a string 

GSHAPE string-variable|,{a,b](,pu(- 
modej] -displays a saved shape 
WIDTH -sets width of drawn lines in 
graphic mode 

WINDOW- defines a screen window on 
the text screen 



Notes for graphics commands 

c-s# = color source number 

= 40 column background 

1 = graphic foreground 

2 = graphic multicolor 1 

3 = graphic multicolor 2 

4 = 40 column border 

5 = character color (40 or 80 column) 

6 = 80 column background 

mode = graphic display mode 

= 40 column normal text screen 

1 = high-resolution graphics screen 

2 = high-resolution graphics, split screen 

3 = multicolor graphics screen 

4 = multicolor graphics, split screen 

5 = 80 column text screen 

col = text column <0-79j (wraps in 40 

column mode) 

row - text row (0-24) 

xr, yr = radii for circle 

sa = start angle 

ea = end angle 

Sound and Music Commands 

ENVELOPE n,[atkl(,[decH.[susJI,[rel] 
MwfJI.lpwl ]l|])-defincs musical in- 
strument envelope; ten musical instru- 
ments (piano, accordion, calliope, drum, 
flute, guitar, harpsichord, organ, trum- 
pet, xylophone) are predefined; all may 
be modified 



n = envelope (instrument) number (0-9) 


atk = attack rate (0-15) 


dec = decay rate (0-15) 


sus = sustain (0-15) 


rel = release (0-15) 


wf = waveform: 


= triangle 


1 = sawtooth 


2 = pulse 


3 = noise 


4 = ring modulation 


pw = pulse width (0-4095) 


ULTER [n(,[lpl(.(bp](,[hpl[.{res|l|l - 


defines sound filter parameters 


f = cut of frequency (0-2047) 


nags; 1 = on, = off: 


Ip = low pass 


bp = band pass 


hp = high pass 


res = resonance (0-15) 



PLAY '*Vn,On,Tn,Uii,Xn,notes/ele- 
ments" where VN = Voice (n=l-3) 
On = Octave (n=l-6) 
Til = Instrument envelope (n=0-9) 
Un = Volume (n=0-15) 
Xn = Filter on/off 
Notes: A.B,C.D,E,F,G 
Elements: 
H sharp 



S flat 

W whole note 

H half note 

Q quaner note 

I eighth note 

S sixteenth note 

. dotted note 

R rest 

M wait for all voices to end 

SOUND v,f,d[,dr[,m(^(,wf1,pw]]]]] - 

creates and outputs sound effects 
V = voice (1-3) 
f = frequency (0-65535) 
d = duration in sixtieths of a sec- 
ond 

dr = frequency sweep direction 

= increment 

1 = decrement 

2 = oscillate (up, down) 

m = sweep minimum frequency 
(0-65535) 

s = sweep step value (0-32767) 
wf = waveform (see ENVELOPE) 
pw = pulse width 

TEMPO— define note duration 

VOL- set sound level or volume 

Reserved Variables 

DS- reads current drive status from disk 
error channel 

DS$- reads current drive error message 
ER-last program error after a RUN 
EL— line number for ER 

Functions 

BL'MP (ii) - returns sprite collision in- 
formation 

DEC(bexadecimal string) - converts 
hexadecimal to decimal 
ERR$(n) - returns program error mes- 
s^e 

FRE (n)- number of available l^tes in 
specified bank 

HEX$(n)- converts decimal to hexadec- 
imal 

INSTR(stringl,string2[start-position] 
-finds position of string 2 inside siringi 
JOY(n) - returns position of the joystick 
PEN (n)- returns coordinates of light 
pen 

POT (n)- returns paddle setting 
RCLR(n)- returns color assignment 
'RDOT(n)- returns current position of 
the pixel cursor 

RGR(X)- returns current graphic mode 
RSPCOLOR (reg)- checks sprite multi- 
color values last set 
RSPPOS-checJcs speed and position of 
sprite 

RSPRITE- returns sprite attributes 
RWINDOW- returns current screen 
window parameters 
XOR— exclusive or function 



NEXT Morton Kevelson continues his series on the Commodore 128 and its peripherals with a text 

MONTH • ^"*^ ^'^°'° '■'^^tment of the 1571 disk drive, including information on specifications, compatibility, 

IVIUIV I n. internal workings, and DOS 3.0; plus, an illuminating look at (and under) the C-128 keyboard 



AHOY! 35 



Wk IMI ^^ '^ ^ "^^ program that will enable you 
to add a window to your programs to give 



=^=| them a professional touch. This window, a 
rectangular portion of the screen framed with 
a solid bonier and containing any message you wish, can 
be plac^ anywhere on the screen and will appear to over- 
lay what was on the scneen when an "open window" com- 
mand is issued. The message contained in the window 
can either be selected before the window is opened or 
the output from the keyboard can be sent directly to the 
window. When a "close window" command is issued the 
window will be restored to its original condition. Since 
the program is written in machine language these changes 
occur instantaneously. Some of the uses for this feature 
include menus, help screens, and warning messages, as 
well as the ability to save or move sections of the screen. 

There are separate programs for the VIC and 64. Both 
consist of a machine language program in the form of 
data statements and a BASIC loader to put the program 
into the computer's memory. The 64 version loads into 
a 1230 byte block starting at memory location 49408. 
The VIC version loads into the top 418 bytes of the BASIC 
programming area with the cassette buffer and 95 bytes 
starting at memory location 673 used for temporary data 
storage. 

PROGRAM DESCRIPTION 

The program uses three window commands to activate 
the program and five variables which tell the program 
the size, location, and contents of the window. 

The "open window" command first saves the character 
and color information in the area of the screen where 
the window is to be placed. This information is stored 
in a file contained within the window program. A win- 
dow containing the desired message is then printed to 
the screen. 

A "write window" command does the same thing, ex- 
cept it does not save the information on the screen, thus 
any information the program has previously stored in its 
file remains undisturbed. This command is used to change 
the contents of a window already on the screen. 

A "close window" command replaces the window with 
the character and color information that was saved when 
the window was opened. This will restore the screen to 
its original condition. 

Neither of these last two commands will disturb the 
screen information previously saved ty an "open win- 
dow" command. 

Five variables are used by the program for window 
parameters, as follows: 

W$ —window message 
W%— window width 
}i% —window height 
R% -row number 
C% —column number 

The first variable, W$, is the message the program will 
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put into the window. If the string is not long enough to 
completely fill the window, spaces will be used after the 
string is exhausted. If W$ is undefined, the program will 
fill the window with garbage. 

The next two variables, the width and height, can have 
any values that will not exceed the screen size, with one 
limitation: the product of the width times the height can- 
not exceed 95 for the VIC or 255 for the 64. 

The last two variables set the position of the window 
on the sct«en. The row number, counting from the top. 
and the column number, counting from the left, specify 
the location of the upper left comer of the window (start 
counting with 0). Any values can be used that will not 
cause the window to run off the right side or bottom of 
the screen. 

Any time a window command is issued the program 
first checks to insure that the values assigned to the vari- 
ables meet the conditions outlined above. The program 
will abort and return to BASIC if an error is found. 

The use of variables to provide instructions for the win- 
dow program eliminates the need to POKE numbers into 
memory. They are created the same as any other vari- 
able used in your program and are stored in the same 
place. Every time the window program is activated the 
program will find the current values of the variables. 

If you change the value of R % or C % before you issue 
a "close window" command, you will replace the screen 
section in a different spot on the screen, a feature that 
allows you to move a block of information from one part 
of the screen to another. If you change W % or H % before 
you issue a "close window" command, you will usually 
end up with a scrambled version of the original screen. 
Regardless, as long as the window size and location vari- 
ables are changed back to the values they had when the 
window was "opened," a "close window" command will 
restore the information in the window area exactly as it 
was originally. Of course, if you have cleared the screen 
or allowed it to scroll in the meantime, the remainder 
of the screen will no longer match. 

LOADING THE PROGRAM 

After you have tyjjed in the program, enter RUN (be 
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sure you have saved the program first) and a machine 
language program will be loaded into the computer's 
memory; the BASIC portion of the program will be de- 
stroyed and the commands you need to activate the win- 
dow commands will be printed on the screen. For a 64 
you will see: 

Open window -SYS 49432 
Write window -SYS 49436 
Close window- SYS 49440 

If you're using a VIC 20, different numbers will be dis- 
played. 

The procedure described above is the normal method 
for using the window program and uses the least amount 
of memory. It does have the disadvantage of requiring 
you to first load and run the window program, then load 
and run your program every time you want to use the 
window feature. If you have about 2K of RAM to spare 
you can avoid this two-step loading procedure as follows: 
load the window program but do not run it. Delete lines 
6. 7, and 8 and proceed to write or append your program 
after the end of the window program. You will have to 
start your program line numbering with 35 or higher. 
but the window piogram including data statements will 
be an integral part of your program and will load and 
save with it. When you run the combined program the 
machine language program contained in the data state- 
ments will be loaded into memory, but the window com- 
mands wilt not be printed on the screen. You will not 
need to be concerned with the actual value of these mem- 
ory locations, as you can make use of the variables that 
are defined in line 5 as follows: 

Open window -SYS OW 
Write window -SYS WW 
Close window-SYS CW 

WINDOW MESSAGES 

When you compose a message to be put into a win- 
dow there are several restrictions you should be aware 
of. Only letters or ^mbols can be used -no special ftinc- 



tion keys such as CRSR or CTRL keys. Because of the 
limited ASCII to screen code conversion ixjutine, any time 
you press any key (except those on the top row of the 
keyboard) while holding down the SHIFT key you will 
get the character you expect, but it will be in reverse mode 
when printed in the window. The result will be a reverse 
mode upper case letter when in the text mode or a re- 
verse mode graphics symbol when in the graphics mode. 
Writing a string for use in a window can be a little 
tricky at first. After allowing for the border the usable 
width of a window is two less than the specified width. 
You could add spaces to pad out a line to achieve the 
desired format, but there is an ea.sier way. The program 
has a feature to avoid the need for counting spaces. When- 
ever you want to start a new line in the window insert 
a £ in the string. The £ itself will not appear, but func- 
tions much as a RETURN key does when writing on 
the whole screen. The following character will appear 
at the left side of the window on the next line down. 
You cannot change the character color within a window. 
If you want the window and its contents to be a different 
color, change color before opening a window and change 
back afterwards. 

USING THE PROGRAMS 

After you have loaded and run the program and ob- 
tained the screen display listing the window commands, 
try the following to become familiar with the operation 
of the program. In the examples that follow the num- 
bers that follow the SYS commands are for a 64. A VIC 
will require substitution of the numbers printed on the 
screen when the program is run. Enter in direct mode: 

W%=8: H%=9: RZ=0: C%=12: W$-"HELLO": SYS 
49432 

This should print a window 8 spaces wide by 9 spaces 
high containing the word HELLO. The left comer will 
be in the top row and moved 12 spaces from the left side 
of the screen. Now enter the close window command: 

SYS49440 

and the window will disappear. Let's move the window 
lower on the screen by entering: 

R%=12: SYS49432 

The window will now be near the bonom of the screen. 
Try changing one or more of the window parameters and 
issuing a window command to see what effect this has 
on the window. If you enter a command and nothing hap- 
pens, check that you have not tried to use a window size 
that is too large or located the window where it would 
run off die screen. 

Writing directly to the window will require a few lines 
of BASIC. The following will do the job. 

If//J SYS49436: REM WRITE WINDOW COMMAND 
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1010 GETX$: IFX$=""THENI010 

1020 IFX$=CHR$(I3)THENRETURN: REM CHECK 

FOR RETURN KEY 

1030 IFX$=CHR$(20)THENW$=LEFr$(W$,LEN(W$ 

)-l: G0T01000:REM CHECK FOR INST/DEL KEY 

1040 IFX$=CHR$(147)THENW$="": GOTOIOOO: 

REM CHECK FOR SHIFT CLR/HOME KEY 

1050 W$=W$+X$: GOTOIOOO 

This is written as a subroutine and can either be called 
fix)m within a program or by direct command. To try 
this in direct mode, open a window anywhere on the 
screen and enter: 

GOSUBK//J 

Any key you press should now show up in the window. 
The keys to clear the screen and delete characters work 
within the window just as they normally do on the whole 
screen. The RETURN key will terminate the subroutine 
and return control to the calling program. There is no 
cursor and the rules for writing to the window are the 
same as described above for writing window messages, 
i.e., SHIFTed letters will be in reverse mode, press £ key 
to jump to next line, and special function keys are taboo. 
After you press RETURN to terminate the subroutine, 
the contents of the window are in the form of W$ and 
can be saved for later use by setting some other vari- 
ables equal to W$. 

MISCELLANEOUS 

Theiive variables used in the window program can- 
not also be used in your program. If there is a conflict, 
you have the option of changing either the variables in 
your program or in the window program. Before you con- 
clude there is a problem, remember that the same letter 
can be used three times, once for each variable type. Thus 
W$, W%, and W represent three separate and distinct 



variables to the Commodore system. 

The window program is designed to make changing 
the variable identifiers relatively easy. The first number 
in the data statements is 87, which is the ASCII code for 
W in W$. The next four numbers consist of 128 added 
to the ASCII code for the letter identifiers in W% , H % , 
R%, and C% respectively. You can use any letter you 
want, but you cannot change the variable type and are 
restricted to single letter variables. 

Both programs are relocatable and can be loaded any- 
where in memory. For the 64, the variable ML in line 
1 sets the point in memory where the program will start 
loading. If you want the program to load someplace else 
just set ML to the desired value before you run the pro- 
gram. 

Changing the location of the program in the VIC is 
a little more involved. Delete line 1, 2, and 3 and sub- 
stitute the following: 



1 ML=XXXX: HB=INT(ML/256) : 
)+256 



LB=(ML/256-HB 



where XXXX represents the memory location where you 
want the program loaded. Only the 418 byte program will 
be moved. The areas the program uses for data storage 
will remain where they were. 

You can achieve some unusual effects by putting the 
window parameters in a loop. One example of this is the 
multiple windows that appear when you run the window 
program. You can use the program to print overlapping 
windows like those often used in software advertisements, 
but you can only "close" and restore the screen for the 
last window opened. D 

Important: in order to fit the DATA statements for the 
64 version on two lines each, youll have to omit the space 
between the line number and the word DATA, and use 
the abbreviation for DATA: D [shift A], 

SEE PROGRAM U^I^GS 0\ PAGE 97 
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FIDGITS 

A learning Game for the C-64 

By Mfoffer £• iMeyers 



II f you have a preschooler learning the alphabet, 
or a child or seven or eight who loves computer 
games but has far more trouble with the keyboard 
1 than with a joystick, introduce him or her to 

Fidgits, creatures who both teach the alphabet (if needed) 
and show the player where the keys are on the keyboard. 
In the game, each of twenty-six fidgits wears a sweater 
with a letter of the alphabet. A randomly chosen fidgit 
opens its mouth and sings a note that continues to play 
until the corresponding key is pressed. Then another fid- 
git sings, and so on. After ten have sung, a new screen 
rewards the player with a TEN RIGHT!" message, and 
asks if he or she wants to play again. 

The program FJdgiis uses a custom font with redesigned 
characters, some for graphics, and some for another pur- 
pose: no matter how sharp the television screen, some 
color combinations cause smearing of the standard font. 
Most of the Fidgits characters are used to form letters 
large and wide enough to allow easy readability with a 
variety of colors. The game also includes a number of 
useful graphics techniques adaptable to your own pro- 
grams. 

Near the beginning of the program, line 10 dews some- 
thing that may seem pointless: it reads the first 129 data 
items and does nothing with them. The reason for the 
strange command 

FOR 1=1 TO 129: READ A$:NEXT 



is this: these first data items contain the frequencies of 
the musical notes for the "ABC song heard while the 
play field is being drawn. The song may be repeated any 
number of times, and therefore its data has to be at the 
beginning of the data listing so that the note values are 
right there at the head of the line after a RESTORE com- 
mand resets the DATA pointer. 

Then the program goes to the listing of strings begin- 
ning at line 1000. When it returns to line 100, it sets up 
a title page with sound and animation. One subroutine 
here is worth comment: lines 110 through 130 set varia- 
bles for screen line (LN) and column (COL), then 
GOSUB to line 50: 

POKE 781, LN: POKE 782, COL: POKE 783,0: 
SYS 65520 

Line 50 calls up a machine language routine in the kemal 
jump table that sets the cursor to the screen position spe- 
cified. On return from the GOSUB, the program meets 
a PRINT statement, and the string is printed where de- 



sired, without a lot of cursor ups or downs. (For a de- 
tailed description of the subroutine, see Sheldon Leemon's 
Mapping the Commodore 64, pp. 70-71). 

The next two blocks of lines, 300 to 470. first print 
the instructions for the game; while the instructions are 
on the screen, many things are happening. First, line 400 
POKEs a machine language subroutine into memory 
starting at 49152. This subroutine, when called, copies 
the character set from ROM at 53248 into RAM. The 
ML routine locates character memory at the 2K block 
beginning at 14336, but the routine can be modified to 
put character memory wherever you want. Here's how 
to do it: '14336' is the number $3800 in hexadecimal no- 
tation. The ML routine POKEs this number into two 
zero-page locations, the left half -'3 8'- into 254, and the 
right half -"00'- into 253. These two locations together 
point to the place where the character set will be cop- 
ied. Hexadecimal '38" equals decimal 56. and the num- 
ber '56' is found in line 3010 in the data statements, the 
fourth item in the line. 

To put character memory at any other 2K block, con- 
vert the location to hex: for example, '12288' is $3000. 
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Then take the left half of this number (30' in this case) 
and change it back to decimal. $30 equals decimal 48. 
Substitute '48' for '56' in line 3010, and the character set 
will be copied beginning at 12288, 

While the player has been reading the instructions, the 
character set has been copied into RAM. Lines 430 to 
440 modify the character set by reading the data table 
beginning at line 3100, and POKEing the necessary num- 
bers into the new character memory block. 

For example: in its turn, line 3185 is reached by the 
program. First, the program reads "A- 185. The C-64 of- 
fers 256 characters in its character set, and a sequence 
of eight numbers specifies the form of the letter or num- 
ber or graphics symbol. Since the character set has been 
copied into RAM, the program can modify the forms 
of the symbols. Line 3185 gives the information to mod- 
ify the one hundred and eighty-fifth character. To find 
that character, the program follows the instructions of 
line 440: it multiplies 185 by 8 (the number of bytes in 
each character) and adds that total -1480 -to the start- 
ing location, 14336. Then it POKEs the next eight num- 
bers into the eight locations starting with 15816. This mod- 
ifying continues, and when line 450 prints the prompt, 
it's all done. 

The appearance of the instructions hasn't changed be- 
cause the 64 is still using the character set in ROM: the 
custom font will not appear until the program tells the 
64 where to look for the new character information. Lo- 
cation 53272 is the memory control register of the 64's 
graphics chip, and the '14' in line 470- 

POKE 53272, (PEEK (53272) AND 240) OR 14 

sets bits 1-3 in that location to point to the 2K block be- 
ginning at 14336. If you copy the character set to a dif- 
ferent block, to the one beginning at 12288 for example, 
then die instruction to point to the correct block would 
read 

POKE 53272, (PEEK (53272) AND 240) OR 12 

One final point about the program: line 598, just be- 
fore die main loop, disables the STOP key and the STOP/ 
RESTORE combination. Because die game will be played 
by children who don't know the alphabet, we want to 
make sure that a hesitant finger doesn't stop the program. 
For the same reason, lines 630-650 set up a key trap: 
the GET in line 630 waits for a key to be pressed. Line 
640 converts whichever key is pressed to its ASCII num- 
ber. Since we have disabled the STOP and STOP/ 
RESTORE keys, we need to check here to see if the play- 
er wants to quit. Function key #1 has been reassigned 
as the STOP key: its ASCII number is 133, and if func- 
tion 1 has been pressed, line 640 sends the program to 
the ending routine. Line 650 next ignores the key that 
is not a letter of the alphabet. The child may hit STOP, 
RETURN, SPACE, a cureor key, a number, CLEAR, or 
anything but a letter without hampering the program. D 
SEE PROGRAM USTING ON PAGE 107 
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GATDAS N SNAKES 



For the C-64 

BY JAMES SANDERS 



Gators N Snakes is an arcade style game that 
utilizes a number of the great features of the 
C-64. What gives the program its great move- 
ment is a machine language routine that 

moves eight sprites at random speeds. The same routine 
also detects sprite to background collisions which are then 
handled in the BASIC portion of the program. 

Gators N Snakes has as its setting the murky waters 
of a Louisiana swamp. The hunting party is on the last 
leg of the long journey. The gator and snake infested 
swamp is the final obstacle that separates them from the 
security of home. Your job is to help the hunters reach 
their homes by carefully crossing that dreaded swamp. 
After the game is loaded and run, the playscreen be- 
comes visible with gators and snakes swimming up and 
down the swamp waters. There are four returning hunt- 
ers on the left side of the screen, and their destination 
on the right side. Sounds simple enough, right? The prob- 
lem (and the object of the game) is to get the hunters 
home in one piece. 

You have four opportunities to get them home. The 
gators and snakes must be avoided at all costs. Contact 
with them means certain death. If you are successful in 
getting a man to his home, you are rewarded with an ad- 



ditional man. If you are able to get all four men home, 
you advance to the next level and may try again. There 
are ten levels of difficulty; the increase is accomplished 
in two ways, the more noticeable is the increased size 
of the reptiles. The less noticeable but more dangerous 
is the gradual increase in the speed at which the reptiles 
swim. This speed creeps up on you, so be careftil. 

The program utilizes another ML routine that quick- 
ly moves the character set in order to generate a few cus- 
tom characters. 

When all four men have met their doom, the game 
is over. At this point the current score is compared to 
the existing high score and replaces it if it's higher. The 
high score is maintained for the next game (which is be- 
gun by pressing the fire button). 

I have inserted two checks to insure that the ML rou- 
tines are typed in correctly Both will signal the lines 
in which the mistake is made in order that the mistake 
may be easily found and corrected. 

Carefully type in the program, and save it to tape or 
disk before you run it. After it is saved plug a joystick 
into port #1 and get ready to cross the Gator N Snake 
infested swamp. D 

SEE PROGRAM USTING ON PAGE IB 



VIDEOGAMING 

COLLECTOR'S 

ITEMS 

Collecto Inc. has acquired the re- 
maining copies of the fourteen 
rarest issues of Videogaming and 
^ ' aming lllusfrafed. As 

Dols they are invalua- 
ble, and they contain some of the 
best interviews in the history of 
the videogaming industry. Plus 
dazzling original artwork that 
will knocK your socks off. All four- 
teen issues for only $15.95 (in- 
cluding postage and handling); 
outside the U.S. add $6.00. 

COLLECTO INC 

P.O. BOX 1019 

BRYN MAWR, PA 19010 



PROGRAMMING 
TIPS WANTED 

Here's o chance for you, the readers of 
Ahoy!, and us, the editors of Ahoy!, to work 
together. If we each do our part, we can make 
Ahoy!'i soon-to-debut programming tips col- 
umn the finest in any magazine. Your port v^ill 
be to provide hints, tips, and programming 
routines that can simplify your fellov/ Commo- 
dore computerists' lives, enhance their abili- 
ties, or both. Our part will be to come up with 
a catchier title by the time this column actual- 
ly appears. 

Keep run-of-the-mill, twice-told tips to your- 
selves. This is Ahoy! We want valuable pro- 
qramming tips. And we'll pay premium rates 
tor them. 

Send your submissions to Ahoy! Program- 
m/ng Tips, Ion International Inc., 45 West 34th 
Street-Suite 407, New York, NY 10001. 
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Super Summer 
Sizzler Sale 



•i( -U •^^• Super Summer Sizzler Sale Ends 9-10-85 -^ -iV W 

Commodore 64 

One Megabyte 






I 



Super Summer 
Sizzler Sale 



zzler Sale ^^^^ ^^ H ^^^^ ^ Sizzler Sale 

179 Disk Drive M79 

Store Spreadsheets, Databases, Wordprocessing Data, Etc. 

• Commodore 64 • PET • 8032 • B128 



The one megabyte disk keeps you from hunting through hundreds of disks for your progroms: plus running out of 
room on your drive for Dato base Data, Word processing Text, Spreadsheet Dole. Business program Data, etc. 
With the One Megabyte Disk Drive you can store over S'/a times the capacity of the 1541. You can store your 
own programs ond any bock-upoble commercial programs plus data from your business progroms'. Perfect as a 
second Drive ! I! ! Enter the world of professional computers today. C-64 requires IEEE interface. 
ListS899.00 SaleS179.00. LIMfTED QUANTITIES! Requires 2 dnve soflwore 



$ 



O4O00 Super Summer $')yiO00 
a47 Sizzler Sale aHT 

ISVz" High Speed 
150-170 CPS 

BUSINESS PRINTER 




The 8023 is a highly advanced 1 36-250 colurnn 15';' professional tractor friction printer with full Bit image grophics ond 
downloadable characters for custom reports and program listings. The paper feed includes o multiple pin tractor for 
smooth error free operation. With the ribbon rated at 1 million characters (no mess cartridge) and the print head at 100 
million characters this printer will lost a lifetime. Full formatting with near letter quolify mokes lining up decimal 
points, automatic S" signs ond tabbing look fantastic and eosy to use. With out a doubt THIS IS THE BIST PRINTER 
VALUE IN THi U.S.A. List S899.00 Sale S249.00 LIMITED OUANTITIES! 



SPECIFICATIONS 



PRINTING METHOD 

Seriol Impact Dot Matrix 
PRINT RATE 

150- 170 Characters per 
second (CPS) 

PRINT STYLE 

Near Letter Quality 

PRINT DIRECTION 

Bi-directional 



COLUMN CAPACITY 

1 36 - 250 

LINE SPACING 

Programmable 

COPIES 

3, including originol 

RIBBON TYPE 

Cartridge (S14,95) 



RIBBON LIFE 

1 Million Characters 

PAPER WIDTH 

3" to 15'? tractor or 

single sheet friction 

INTERFACE 

IEEE Protocol 

CHARACTER SIZE 

O.I 16 high, 0,08 wide 



GRAPHICS 

Bit Image 

Programmable Choracfers 
Reverse Choroclers 



ERROR HANDLING 

Internal 

Self - Diagnostics 

Microprocessor 



Commodore 64 IEEE Interface 



This interface plugs in1o your Commodore 64 Disk Drive port and allows you to hook up the 1 Megabyte Disk Drive ond 
8023 Printer as well os other IEEE devices. Separte power supply insures reliability. Fontostic Interface, (includes oil 
cables) List $109 95. If bought with printer or disk drive $69.00. 

{no interloce needed tor PET B-128 and 8032 computers) 



Add S17 50 for shipping, hondling ond in^uronce, lllinoi$ residents 
pleoseadd 6% ro«. Add S35.00for CANADA PUERTO RICO HAWAII 
ALASKA APO-FPO orders Conodion orders nvusi be in U.S, dollors. 
WE DO NOT EXPORT TO OTHER COUNTRIES EXCEPT CANADA 
Enclose Coshiers Check Money Order or Personal Check, Allow I J 
days for delivery ? ro 7 doys tor phone orders I day express mail I 
VISA MASTERCARD COO 

NqC O D toConoda APO FPO 



We Liove Our Customers 

22292 N, Pepper Rd., Borringfon, Illinois 60010 

312/382-5244 to order 



Reader Service No. 1 77 



# Commodore 64 Accessories 

Sutnmer Sixxler Sato 




Sale Positively Ends 9-10 85 

Prices will go back to regular sale prices 

CI 28 Commodore Computer 

Expandable lo 512K runs C 61 CPM and 7.0 Programs. 

(Add SIO Shipping) 

IS'A" Commodore 150-170 CPS Printer 

Near Letter Quollly Multiple Pin Troclor Friction Feed. 
Best Printer Value in U.S.A. {Add SI 7.50 Shipping) 

Commodore-64 IEEE Interface 

Allows you to run Pel Peripherals on the C-64. including Ihe 
One Megabyte Disk Drive ond 1 5' i Printer 

Juki Printer/Typewriter 

Letter Quolity. doisy wheer use as typewriter ond or printer 

(auto correction) (Add S)0 Shipping) 

SCM 80 CPS Printer 

Tractor Friction 10 Famous Nome Printer does Graphics 
w Interlace. (Add SIO Shipping) 

Cardco G Plus Interface 

Converts Commodore to Centronics tor use with most printers plus 
does Commodore graphics on graphic printers 

Alphacom 40 Column Printer 

thermal technology does graphics. tAdd StO Shipping) 
Alphocom C-64 or Atari Interface $8. 95. 

190K Slim-Line Disk Drive 

Cooler 20 "o foster quieter than 1 541 drive (Add SIO Shipping) 

One Megabyte Disk Drive (1000K) 

Double sided drive hooks up to C-64 with IEEE interface perfect os a 

second drive, (Add SIO Shipping] 

13" Premium Quality Color Monitor 

Better than 1702. with separated video inputs. (Add SU.50 Shipping) 

Voice Synthesizer 

Allows you to talk through your computer. Optional software lets 
you play talking odventure games (Zork. etc.) 

80 Column Board - 4 Slot Expander 

Allows you to program in 80 columns, plus gives you a 4 slot switch 
selectable expander 

Auto Diaf Modem with Super Smart Software 

upload Download. Print. Catalog. This Pockoge hos it oil' ' ' 
Best Modem Value in Ihe U.S.A.! { 

Musicalc I Software 

The Best Musicol Soltwore for the C-64, allows you fo change oil 

paromelers. 

Oil Barrens Software 

Better than Monopoly, comes with gome board, disks and 
instruction monuol. Strike Oil or Live in the Poor Form 



List 
S34900 

S39500 



>109 



9S 



S349OO 

529900 
i I 0900 

soooo 

4249°° 
^889°° 

S39900 
53900 

514900 

SI 29" 



'59 



li 
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Reg. Sale 
Price 



*69 



00 



t249oo 

• 15,00 



'59 



00 



'24 



«s 



»169««» 
t|,qoG 

%jqoo 



•29 



'19' 
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Svmmer 
Sixsler Sate 

$24^95* 

9S 



$14995 

$22" 

n39" 
^79" 

n69" 
^39" 

^59" 

$^g95 



*9 



95 



plus Software Coupon Discounts 



Add S3 00 tor shipping hondling and insurance- lllinors residents 
piMse add 6". ton Add $6 00 lor CAhtADA PUERTO RICO HAWAII 
ALASKA APO FPO orders Canadian orders musi be m U S dollars 
WE DO NOT EXPORT TO OTHER COUNTRIES EXCEPT CANADA 
Enclose Castiiers Cl>ec)i Money Order or Penonol Ctisck Allow \* 
days lor delivery 2 to 7 doys for phone orders I doy express moil ' 

VISA MASTERCARD COD 
NoCOD foConado APO f PO 



We IjOvv Our Oiistonict\s 

22292 N, Pepper Rd, Borrington Illinois 60010 

312/382-5244 to order 
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SALE 



^Als 



80 CPS PRINTER 

"^ Smith Corona 

• Commodore 64 • Atari • Apple • More 

11" Carriage • Friction/Tractor • Graphics 






Super Summer Sale 
Ends 9-10-85 




III SMITH 
^ CORONIV 



The Fastext 80 dot irsotrix printer from SrnithCorono. A high speed, high flexibility printer with a low suggested 
monufocturer s retail price of only S299.00. Sale $149.00. It does your graphics with ease and prints letters with speeds up 
to 80 CPS. (Does Commodore graphics with graphics interface.} As for flexibility, it has bidirecfionol printing, friction 
and tracter teed . Plus six different pitches including condensed ond enlarged type for impeccoble choracters in a variety 
of sizes. Also standard is a full line buffer and thrifty drop-in ribbon cassettes thot yield up to o million characters. Finally, 
its compotible with virtually oil personal computers. Teamed up with your personal computer, it'll keep trock of your 
transactions, fly through finances help with homework even plan the fomily menu. All this with the assurance of superb 
Smith-Corona quality built in, makes the Fastext-80 a lot of dot for your dollar. List S299.00. Super Summer Sale $149.00. 



SPECIFICATIONS: 

Size Weight. Height 4 W/idlh 16 5 Depth 9 

Weight 8.2 it>s. 
Eiectricoi Needs >20V 6OH7 
Internoi Char. Coding ASCII'.ISO 
Print Buffer Size 132 Bytes (1 line) 
No. of Char, in Char, Set 96 ASCII', 

Inlernotionol 
Graphics Copability Stondord 60 73 Dots Per 

Incti HQciiontol 72 Dots Per Inch Vertical 
Pitch: 10 12 16-7 5, 6. 8-3 
Printing Method Impocl Dot Motfix 



Chor, Motrix Siae: (Standard! 9H « SV 

(Elongote) lOH x 8V 
Printing Feotures. Bidirectjonal Short Ime 

seel<ing 
Printing Speed: 80 CPS 

PAPER 

Type: Plain 

Forms Type Fanlotd, Cui Sheet 
Max Poper Width: U 

feeding Method Friction Feed Std.: Tractor 
Feed Included 



RIBBON 

Type: Cassette Fabric inked ribbon 
Life 1 million characters 

CHARACTER MODE 

Chorocter Font 9x8 Stondord 10x8 Elongated 

No. 8 pin to be used for underline 
Character Set. 96 ASCII, 1 i x 7 International Ctiof . 
Pin Graph Mode: The incoming bit pattern 

corresponds to Ihe 8 pins in the print head 
Resolution. Horizontol 60 72 dots inch, Verticol: 

72 dots inch 



PARALLEL INTERFACES 



Commodore 64 — $39.00 



Apple II, He, II + - $59.00 



Atari - $59.00 



Add SIO 00 lor shipping hondlmg ond insurance, Illinois residents 
please odd 6'. to» Add S30 00 tor CANADA, PUERTO RICO, HAWAII, 
AlASKA APO-FPO orders Canodion orders myst be in U S, dollars. 
WE DO N01 EXPORT TO OTHER COUNTRIES EXCEPT CANADA. 
Enclose Cashiers Chech Money Order or Personoi Check, Allow 14 
doys lor delivery 7 to 7 days for phone orders 1 day express mai|r 
VISA MASTERCARD COD 

l^oCOD loConodo APO FPO. 



Wc Ijove Our Customers 

22292 N, Pepper Rd. Barrington, Illinois 60010 

312/382-5244 to order 
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COLOR MONITOR 

SALE!!! 




(Premium Oualityj 

• Built in Speaker and 
Audio 

• Front Panel Controls 

• For Video Recorders 

• For Small Business 
Computers 

• Apple - Commodore - 
Atari - Franklin - etc. 



Add SI' M ^hupping handling Ond insuiOncv 
<nQt% ie%ideni^ pt«Of« odd b'* lOx W« do 
Mv' ihip lo lorwiQn covrttn*^ {including 
CoFKida) AlQitiq Putrlo (Tico APO FPQ 

Enclot* Co»hiers Ch*<l( Mon«y Ordtr or 
Pvriono! CHtck Allow 14 dayi lor delivery 7 
to 7 days for phone ordert I day tHpreis 
moil ' 





13" Color Computer Monitor 



(Premium Quality! 

• Beautiful Color 
Contrast 

• High Resolution 

• Separated Video 

• Sharp Clear Text 

• Anti-Glare Screen 

• 40 Columns x 24 Lines 

• Supports 80 Columns 

List $399^° 
SALE $169*>** 

'Connecting coble S9.95 



75 Day Free Trial - 90 Day Immediate Replacement Warranty 



00 



14" COMMODORE 1702 COLOR MONITOR 

:add 514,50 shipping! Ljgj $299°° 

12" XTRON SUPER HI-RESOLUTION MONITOR 

80 Columns x 24 Lineb Supef Hi Resolution 1000 lines 

Green or Amber Super Clear "Eosy to Read' texl with i j_i. SQ^QOO 

special antiglare screen ' Llbl ^*J7 

U^y^ffin^ HI-RESOLUTION GREEN OR AMBER TEXT DISPLAY MONITOR 



Super Summer % 
Sizzier Sale 



Super Summer $ 
Sizzier Sale 



179 



109« 



80 Columns x 24 Lines Hi-Resolulion crisp clear easy 
to reacj text with anti-glare screen i A MUST lor word 
processing 



List M99°° 



Super Summer $ 
Sizzier Sale 



12" MONITOR GREEN OR AMBER TEXT 

80 Columns X 24 Lines, easy to read up front controls I ist ^159^^ 



Super Summer ^ 
Sizzier Sale 

' Connecting cable S9. 95 



• LOWEST PRICeS* 15 DAY FREE TRIAL • 90 DAY FREE REPLACEMENT WARRANTY 
• BEST SERVICE IN U S A • ONE DAY EXPRESS MAIL • OVER 500 PROGRAMS • FREE CATALOGS 



89« 
69« 

eS 

1 



Add SIOOO lor shipping hondling pnd in%urorK« llJmoi^ re^idenK 
please odd 6*. io> Add SM 00 lor CANADA PUERTO RICO HAWAII 
ALASKA APO FPO orde>% Conodioo ordeit mult be in U S doHors 
we OO NO! tXPORT lO OTHER COUNTRIES EXCEPT CANADA 
Encici» Coshieii Check Money Ordei 0( Perionol Chetk Allow 14 
doy^ fof delivery ? to 7 doy^ lor pttone orders I day express moil' 
VISA MASTERCARD COD No C O D lo Canodo APO FPO 



We LiOva Our CuNtarnrrs 

22292 N. Pepper Rd. Borrington, Illinois 600tO 

312/382-5244 to order 
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FOR COMMODORE 64 AND PET COMPUTERS 

By Alfred J. Bniey 




t is often true that the hardest part of writing a 
program is writing the documentation. It is also 
often true that the most tedious part of writing 
documentation, especially if a program is menu- 
driven, is typing up the menu screens so that they re- 
semble the screens that the user will see as he runs the 
program. This is also the most expensive part of the type- 
setting function if you are preparing your documenta- 
tion for publication. 

INCORPORATING THIS PROGRAM 
INTO YOUR SYSTEM 

To use the program shown on page 100, just type in 
the program you wish to document, making sure to leave 
open the line numbers from 50000 to 50250 (although 
you can renumber this routine any way you want). After 
you've entered your program, append the routine on page 
100 to the end of it. 

AN EXAMPLE 

You can use this program to demonstrate itself. Just 
enter the screen print routine and add the BASIC line 

10 GOSUB 50000: STOP 




'Computer, computer, look at my face. 
Am I the fairest in your database?' 



The program shown on page 100 is for the Commodore 
64. To make it run on the PET/CBM models, change 
line 50040 to 

50040 FOR I = 32767 TO 33750 STEP 40 

Then type LIST so that the program will be displayed 
on the screen. Now type RUN and press return. What- 
ever is on the screen will be reproduced on your printer. 

HOW TO USE THIS PROGRAM 

At any time during the running of a program when 
you want to keep a hardcopy (printed) record of what 
appears on the screen, just put in a GOSUB statement 
to execute this subroutine. The program will pause long 
enough print out the screen image and then continue with 
its processing. You will find that the screen images are 
faithfully reproduced with one exception: all lowercase 
alphabetic characters will be converted to upjjercase. This 
program will print all upper case and graphics charac- 
ters, both regular and reversed. Once you've printed cop- 
ies of all the screens for your documentation, you can 
turn the GOSUBs into REM statements or else remove 
them and the subroutine from the program completely. 
A sample program layout might be as follows: 

program initialization 



coding to display first menu 

GOSUB 50000 

INPUT or GET statement for first menu 

processing 



coding to display second menu 

GOSUB 50000 

INPUT or GET statement for second menu 

processing 



A FINAL NOTE 

You can also leave this routine in a production pro- 
gram to make a record of your transactions. For exam- 
ple, assume you are using your computer to enter requests 
based on customer phone calls. \bu can install this rou- 
tine in your program in such a way that each time a call 
is taken and the data recorded on the screen, a hardcopy 
of the transaction will be printed as part of your daily 
records. D SEE PROGRAM LISTING ON PAGE 100 
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Ahoy! vtes onfjr 

maxell 

premium quality dislcs. 




We're sure you're looking forward to trying out the programs in this issue of 

-Ahoy.' But we're equally sure that you're not looking forward to typing them in. If 

you're an average typist, that should take you upwards of 25 hours. Not counting time 

spent correcting your typing errors, of course. How long that will take is anyone's guess. 

• How would you like someone to type the programs for you? At a price of. say-32« 

an hour? Wouldn't it be worth 32c an hour to free yourself up for more pleasant pursuits - 

like enjoying the rest of your Ahoy! magazine? • If you order the Ahoy! Program Disk or 

Cassette, you'll be getting that service for just under 32c an hour. Because lor $7 95 (postage 

included): we'll mail you all the programs in this issue, on a disk or cassette that's tested and 

ready to run with your C-64 or VIC 20. If you subscribe, you'll save even more: 12 monthly 

disks or cassettes for $79.95. 24 tor $149 95 (postage included)'. Back issues are available as 

well. • You already know how to type. Why not use the hours you spend with your Commodore 

to learn something new? -Canadian and foreign pnces higher. 



SINGLE ISSUE AND SUBSCRIPTION PRICES 

(Postage and Handling Included) U.S.A. (CANADA El^EWHERE 

□ August '85 Ahoy! DisK 
Q August '85 Ahoy! Cassene 

Q 12-Monlh Disk Subscription 

□ 1 2-Month Cassette Subscription 



$ 7.95 



$ 7955 



$ 10.00 



$ 99.95 



$ 1200 



$124^ 



BACK ISSUES $8.95 

(except months listed) 

In Canada add $2.00 per issue: ouiside US 
and Canada add S400 per sssue. 



□ Jan. 

□ 



'84 



□ 24-Month Disk Subscription 

□ 24-Month Cassette Subscription 



□ . 



$14995 



$17Sl95 



□ - 



$9.95 
$8.95 
$a95 
$895 



J 

LJ. 

□ - 



$8.95 
$8.95 
$8.95 
$8.95 



□ 8esf of '64 (drsl< only) $ 1055 $ 10.95 $ 1095 

Make check or money order payable to Double L Software. N.Y. State Residents must add 8'/*% sales tax 



SPECIFY 
□ DtSK U CASSETTE 



Send coupon or facsimile to: 
Ahoy.' Program Disk/Cassette 
Ion international Inc. 
45 West 34th Street, Suite 407 
New \tork, NY 10001 



NAME. 



ADDRESS 
CITY. 



STATE 



ARCADE-STRATEGY-AOION 



ditkt' mm' 





BRINGS YOU BRAND NEW 
UNBELIEVABLE 

COMMODORE 64 DISKS 



ADVENTURE 



!«■■■■■■ 

Ji EDUCATI 



EDUCATIONAL 



^€dM0t PRICES ! 

Look for MASTERTRONIC programs at your local computer dealer 

or mass merchant. For more information write or call (301) 695-8877 

Mastercard and Visa accepted. 

MASTERTRONIC INTERNATIONAL INC. 



7311B Grove Rood, Frederick, Maryland 21701 

Reader Service No. 232 
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Top left: Pond by Dave Moroz-Henry 
(Downington, PA), drawn with Koala. 
Mr. Moroz-Henry claims to be a gen- 
uine starving computer artist seeking 
gainful employment in the computer 
graphics or software development 
field. Correspondence from inter- 
ested parties will be forwanded to Mr. 
Moroz-Henry. 






Four images by Armand Suarez (New Iberia, LA), whose work can be de- 
scribed as Far East or Far Out: Fuji-San, Geisha (left), Tbrii (above), and 
Starship (right). All images created with the KoalaPad and Koalapaint software. 



Contributors to Ahoyrs Art Gallery will receive royalties based on the sale of 
disks containing the best computer graphics received, both published and un- 
published. Send your best work on disk, accompanied by a stamped and self-ad- 
dressed mailer, to Morton Kevelson, PXX Box 260, Homecrest Station, Brook- 
lyn, NY 11229. indicate the drawing package that was used to create the im- 
age. If you employed a bit map of your own design, indicate the appropriate 
file parameters, i.e., hi-res or multicolor, location of bit map, screen or color data. 




lop left: Sailboat by Earl Hamner 
I Milpitas, CA). Middle: BCGasson 
bv Peter T. Hughes (Canton, MA) is 
Gasson Hall at Boston College drawn 
in meticulous detail with Paintpic 
without zoom feature. Bottom right: 
an irresistible entiy ftom Richatd and 
Pamela Winters (Shreveport, LA). 
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ISSUE #1-JAN. '84 UM 

64 V. the Peanuif Telecommunications! 
Tales of Ihe Commodore! And ready 
to enter Multi Draw 64 Graphics Sys- 
tem! Interrupt Music Maker/Editor! A 
Peek at Memory! Sequential Files! 



ISSUE #2 -FEB. '84 $4.00 

tllustraied lour of the 1541! ArtiHcial 
imelligence! Synapse's Ihor Wolosen- 
ko interviewed! And ready to enter: 
Music Maker Part II! Screen Manip- 
ulation! Night Attack! Relative Files! 



ISSUE #3 -MAR. '84 $4.00 

Anatomy of the 64! Primer interfac- 
ing lor VIC & 64! Educational «)ft- 
wart; scries begins! And ready to en- 
ter: Address B(X>k! Space Lanes! Ran- 
dom Files on the 64! Dynamic Riwcr! 



ISSUE #4 -APR. '84 KOO 

Petspccd and Easy Script tutorials! 
Printer interfacing continues! Laser- 
disc! And ready to enter: Apple Pie! 
Lunar Lander! Name that Star! Low- 
er case descenders on the 1525 printer! 



ISSUE #5 -MAY "84 $4.00 

Future of Commodore! Inside BASIC 
storage! Memory management on the 
VIC & 64! Guide to spreadsheets! And 
ready to enter: Math Master! Air As- 
sault! Biorhylhms! VIC Calculator! 



ISSUE #6-JUNE '84 $4.00 

Game programming column begins! 
Program generators! Rupert on input- 
ting! Memory management continues! 
And ready to enter: Post Time for Ihe 
64 & VIC! Alpiner! Sound Concept! 



SoiTy...lssues #1, #2, and #7 

sold out! Reprint editions 

(programs and feature 

articles only) 

available tor $4.00 each. 



ISSUE #7- JULY '84 $4jOO 

MSD dual disk drive! Database buyer's 
guide! Training your cursor! Screen 
displays! File Sleuth! Users Groups! 
And ready to enter: Renumbering! 
Checklist! Math I>efender! Brisk! 



ISSUE #8-AUG. "84 $4.00 

Choosing a word prcx-cssor! Compu- 
tational wizardry! Creating your own 
word games! Sound on the 64! And 
ready to enter: Micro-Minder! Direc- 
tory Assistance! The Terrible Twins! 



ISSUE #9 -SEPT. '84 $4.00 

Program your own text adventure! 
Build a C-64 cassette interface! Vid- 
eo RAM! And ready to enter: Salvage 
Diver! DOS! Sound Explorer! The 
Castle of Darkness! Base Conversions! 



ISSUE #I0-OCT. '84 $4.00 

C-64 graphics programs! Bil-mapped 
graphics! Joystick pnigramming! And 
ready to enter: VIC 40 Coluiun Op- 
erating System! BAM Read & Print! 
Emerald Elephant! Lawn Job! 



ISSUE #U-NOV. '84 $4.00 

Music programs & keyboards for the 
64! Graphics feature continues! And 
ready to enter: FTE word processor! 
Block Editor! Alternate Character Set 
for the 64! The Tunnel of TomachonI 



STOP '^■:J:;preteconecl-.onotAh^^^^^ A 

..untU you have I ^^S^^r.als ^an s^ve^o^^^ ^ 

^ioui our articles ana j^gyuoard-our pwa ^^^^ 

belowjo^[^5!_ri^-^- -^ 



ISSUE #12 -DEC. '84 Um 

Buyer's guide (o prinicrsi 1325 printer 
tutorial! Custom characters! User 
Guide to KMMM Pascal! Diving into 
BASIC! And ready to enter: Construc- 
tion Co.! Space Patrol! Cross Refl 



ISSUE #13-JAN. "85 $4JH) 

VIC/64 OS exposed! Sprites! 1541 de- 
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print! To the Top! Tape/Disk Transfer! 
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Printer interfacing! Multicolor sprites! 
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Making multiscreen gameboards! In- 
side the Plus/4! Commodore DOS! 
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ISSUE #16-APR. '85 $4.00 

Assembly language column begins! 
Programming the joystick! 1541 disk 
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Disk drive enhancements! Install a re- 
set switch! Assembler escapades! And 
ready to enter: Super Duper! Two-Col- 
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Music & graphics entry systems! H(jw 
modems work! Inside the 6510! And 
ready to enter: Quad-print! Mapping 
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ShiH>t! The 6510 Simulator! 



ISSUE #«>-JULY "85 $4JK) 

PROM programming! 3-part harmon- 
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ready to enter: Auto-Append! Script 
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tery! Brainframe! Etch! Printat! 
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Falling Needles 
and Shared Birthdays 

Simulations of the Real W^rld By Dale Rupert 




ast night my Commodore 64 dropped nearly 
a quarter of a million needles on a hardwood 
floor. It kept track of how many of those nee- 
dles fell across a crack, and thereby pro- 
claimed that the value of pi is 3.15845536. My Commo- 
dore 64 also calculated that with at least 117 people in 
a room, there is a one hundred percent probability that 
two or more of them have the same birthday. 

Unfortunately, neither one of these conclusioas is total- 
ly correct. Both conclusions are somewhat crude approxi- 



mations to the truth. This month we will look at some 
methods and limitations of simulating real-world events 
on a computer. 

Three basic ways of predicting outcomes of events are 
calculation, enumeration, and random simulation. Calcu- 
lations are readily performed if a formula and the rele- 
vant values are known. Probable outcomes of statistical 
experiments involving dice, cards, and other such devices 
of chance are often determined by enumeration. Enum- 
eration is a process whereby all possible outcomes are 
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listed, and the successful outcomes are simply selected 
from the list and counted. Within limits, calculation and 
enumeration on the computer can arrive at an exact result, 
if one exists. 

A standard method of computer simulation is to ran- 
domly select the outcome of a series of events such as 
the roll of the dice or the location and orientation of a 
needle dropped on the floor. By analyzing the randomly 
chosen results, the likelihood of a particular outcome may 
be determined. The results of the simulation will be only 
as good as the randomness of the selection and the ac- 
curacy of any calculations involved. 

Before we begin simulating various events, we will de- 
fine some terms and concepts. It's time for a short course 
in probability and statistics. 

CHANCES ARE... 

Let's begin with a simple example that everyone can 
readily visualize. To determine the probability of getting 
two heads when imto coins are flippai, proc^d as follows. 
If we flip two coins, there are four possibilities: HH. 
HT. TH, and TT. where H stands for heads and T stands 
for tails. We have thus enumerated all four possible out- 
comes for the flipping of two coins. Now we merely count 
the number of successful outcomes, namely the number 
of outcomes containing two heads. 

Obviously only one out of the four possible outcomes 
is successful. Consequently we conclude that the proba- 
bility of getting two heads when flipping two coins is 
one out of four or one fourth or twenty-five percent. The 
probability of getting at least one tail can be found the 
same way: count the number of successful outcomes and 
divide by the total number of possible outcomes. From 
the list above, there are three outcomes which contain 
at least one tail. Therefore the probability of getting at 
least one tail is three out of four or seventy-five percent. 

The implications of statistics and probabilities are of- 
ten misunderstood. Indeed the probability of getting two 
heads when tossing two coins is twenty-five percent. That 
means in the long run two heads will be flipped one fourth 
of the time. A twenty-five percent probability does not 
mean thai after three unsucces.sful flips, the fourth will 
be successful. In fact the first fifty flips (or the first mil- 
lion flips for that matter) could conceivably be all heads, 
but such a sequence is not likely to happen often. 

If more than a half dozen sets of double heads occurred 
in a row, there would be reason to believe that maybe 
something is fishy (loaded coins or loaded flipper per- 
haps). It is a straighttbrward process to calculate the prob- 
ability that six sets of double heads would occur in a row. 
Since each outcome is independent of every other one. 
simply multiply the individual probabilities together. The 
result is one fourth raised to the sixth power, or 0.000244. 
Probabilities are frequently given as percentages, so mul- 
tiply the result by 100 to get 0.024 percent. That's why 
we might be suspicious if six sequential pairs of heads 
were flipped more than rarely. 

The probability of success and the probability of fail- 



ure add up to one. If the probability of getting two heads 
is one fourth, the probability of not getting tvro heads 
is three fourths. It is easy to see this if you count the 
number of "failures" in the enumerated list and see that 
there are three. The percent probabilities of success and 
failure add up to one hundred, so the probability o( not 
getting six pairs of heads in a row is (100 - 0.024) or 
99.976 percent. 

Probabilities deal with successful outcomes as a frac- 
tion of total possible outcomes. Odds are related but 
slightly different. Odds compare the number of success- 
ful outcomes with the number of failures. The odds that 
a pair of heads will be flipped are one to three (one chance 
in favor versus three chances opposed). We will deal with 
probabilities rather than with odds. 

Now that we have the rules aiKi the vocabulary for deal- 
ing with probabilities, let's drop some needles on the floor. 

FALLING NEEDLES 

Count Geoi^es-Louis Leclerc Buffon was an eighteenth 
century French naturalist and experimentalist. His ex- 
periment which we will simulate involved dropping nee- 
dles onto a ruled surface and counting how many of them 
landed on a line. Surprisingly enough, he found that the 
proportion of needles landing on a line was a multiple 
of pi! Specifically, if the lines on the surface are a dis- 
tance H apart, and the length of the needle is L. the prob- 
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ability that a needle falls on a line is two times L divid- 
ed by the quantity H times pi. An account of Count Buf- 
fon's experiment, as well as multitudes of other interest- 
ing problems, are presented in the book Maihematks and 
the Inmgination by Edward Kasner and James Newman 
(Simon and Schuster). Try a bookstore or a library for 
this most entertaining volume. 

How can a computer simulate the dropping of needles? 
A little head-scratching reveals that there are essentially 
two random parameters: the location of one end of the 
needle and the location of the other end. The two para- 
meters are related. In fact, if we pick the location of one 
end and the angle of orientation of the needle, we can 
calculate where the other end is. 

Assume that each board of a hardwood floor has a 
width H and a needle has a length L. One end of the 
needle may fall at any distance YO from one crack. If 
the needle makes an angle A with respect to the hori- 
zontal, the other end of the needle is at a distance Y from 
the crack, where 

.Y = YO + L * SIN(A) 

The diagram below should help. 



H 




L-SIN(A) 





A needle of length L is dropped onto a floorboard 
of width H. Will it land on a crack? 

Some thought should convince you that we lose no gen- 
erality by using a single floorboard of width H. We will 
choose a random value tor YO between and H . We will 
also choose a random value for the angle A. Deciding 
what limits to place on the size of A was somewhat dif- 
ficult. Let's consider a needle pointing horizontally to 
the right to have an angle of radians (0 degrees) and 
a needle pointing vertically upward to have an angle of 
pi/2 radians (90 degrees). We should be able to limit the 
range of A from to 2*pi radians (0 to 360 degrees) to 
cover every possible orientation. To do so would require 
that we use the value pi in our random number genera- 
tion, and that is the very value we are trying to find. 

Consequently we will choose a random value for A 
between () and some arbitrarily large number, say 30000. 
Although 30000 radians is not an exact number of com- 
plete revolutions, our results should not be overly biased. 
You might try 31416 radians as an upper limit which is 
even closer to an integral number of revolutions. 

The groundwork is nearly complete. The computer will 
pick two random numbers, YO and A. h will calculate 
the location of the other end of the needle, Y. Then it 
must decide whether the needle lies across a line. From 
the diagram you can see that the needle does lie across 
a line if Y is greater than H or if Y is less than zero. 

56 AHOY! 



The program Needles (see page 90 in the program listings 
section) implements this simulation. 

The length of the needle is chosen to equal the width 
of the floorboard. K is the constant relating the ratio of 
L and H to the value of pi. TRIES keeps track of the 
number of needles dropped. WINS is incremented when- 
ever the conditions in line 90 are met, that is. whenever 
the needle falls across a line. The variable PI is the cal- 
culated result, which should theoretically equal pi if 
enough needles were randomly dropped. TTL and AVG 
keep a running average of the values of PI after each drop. 
The value of AVG will change less rapidly than PI and 
might be easier to follow. 

My Commodore 64 dropped needles for nearly eight 
hours. After 231.878 drops, it showed a value for PI of 
3.15845536 and a value tor AVG of 3.15426395. These 
are certainly not very impressive results. Kasner and 
Newman mentioned in their book that Lazzerini, an Ital- 
ian mathematician, dropped 3,408 needles and came up 
with a value for pi of 3.1415929, correct to six decimal 
places! (Pi is approximately 3.141592654.) 

Why are the results of this program so inaccurate? The 
most likely suspect is the random number generator itself. 
If you ran the random number generator program in the 
June 1985 Rupert Report, you saw that there are amaz- 
ingly obvious patterns among the supposedly random 
numbers being generated. The only other factors which 
could account tor such a poor showing are the limited 
word length for numeric variables and the inaccuracies 
of the mathematical operations. Perhaps using a different 
range of values for A would make a difference. 

Let me know of any modifications you make to this 
program and what your results are. Maybe using a dif- 
ferent random number generator would help. Your ideas 
are welcome. Let's move on to another simulation. 

MATCHING BIRTHDAYS 

Perhaps you have heard that with twenty-three people 
or more in a group, the odds are better than even (there 
is greater than 50% probability) that at least two people 
will have the same birthday. Once again this means that 
if you investigate a great enough number of groups, slight- 
ly more than half of them will contain at least one set 
of matching birthdays. 

There is a formula for calculating the probability of 
matching birthdays. We will derive the formula and write 
a program to evaluate it for groups of any size. Next we 
will write a program to randomly choose birthdays for 
people in groups of a given size. It will be up to you 
to see how closely the results of the simulation program 
match the calculated results. 

Let's consider a group of three people. To calculate 
the probability that at least two of them have the same 
birthday, we will work in reverse. We will calculate the 
probability that no two of them share a birthday We will 
subtract that result from one, since the probability of a 
failure plus the probability of success add up to one. 

Consider the first person. His birthday may be any one 
of 366 days. (We are assuming all birthdays are equally 
distributed throughout the population, which in actuality 
they aren't.) If he were the only person in the group, the 
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probability of a failure would be one, since obviously 
he would not share a birthday with anyone else in the 
group. The probability of success for one person is zero, 
"Success" will mean "two or more people in a group shar- 
ing a birthday." "Failure" will mean "no two people in 
a group sharing a birthday." 

For the second person, there are only 365 of the possi- 
ble 366 days that lead to a failure, since his birthday must 
not match the first person's birthday. For the third per- 
son, there are only 364 of the possible 366 days that lead 
to a failure, since the third birthday must not match ei- 
ther of the other two. 

The overall probability of failure for a group of three 
people is 



366 
366 



365 
366 



364 
366 



where each fraction is the ratio of the number of fail- 
ures to the total number of possibilities. To calculate this 
type of expression, alternate between the divisions and 
multiplications for best accuracy. The probability of fail- 
ure is roughly 0.992 or 99.2 percent. That means the 
probability of success is (1 - 0.992) or 0.008 which is 
0.8 percent. 

Continuing this line of reasoning, we arrive at a gen- 
eral formula tor the probability of failure tor a group of 
NP people: 

366 * 365 * 364 * ... * (367-NP) / (366) t NP 

As before, the probability for success is one minus that 
quantity. You can see that if there are 367 people in the 
group, the probability of failure equals 0, since the last 
term in the numerator is zero. That's exactly what is ex- 
pected, since there are not 367 different birthdays. 

The Birthday Calc program on page 90 consists of two 
parts. The first part asks for the number of people in 
the group, and it calculates the probability of success by 
evaluating the above formula with a FOR-NEXT loop. 
If you enter a non-integral value or a value of zero, the 
program branches to line 200. The second part of the 
program at line 200 evaluates the formula for each val- 
ue of NP from 1 to 366 and displays the results one 
screenftil at a time. VIC 20 users may modify lines 230 
and 240 to tidy up the display. 

If you want to print out the results, you may insert line 

205 OPEN 4,4 

Also change lines 230 and 240 to contain "PRINT#4." 
instead of "PRINT" and delete lines 270 and 280. Notice 
that the probability of shared birthdays in a group of 58 
people is greater than 99 percent. It's still hard to believe, 
isn't it? 

One final project this month is the program called 
Birthday Simulator (see page 90). The listing uses 24 
for NUMP, which is the number of people in each group. 
You may change this value in line 30. For each person, 
a random number from I to 366 is chosen to represent 
his birthday. The array BDAY(PERSN) contains the birth- 
day value for each value of PERSN. If the first person's 
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randomly chosen birthday is 5 (January 5th), BDAY(l) 
equals 5. Similarly if BDAY(3) equals 366, the third per- 
son in the group was bom on day 366 (December 31). 

The other array CT( ) keeps track of the number of 
times a particular birthday has occurred within a group. 
For example, if CT(366) equals 2, then two people in 
the group have a birthday on December 31. Although 
there is an array element in CT for each of the 366 days, 
we only need to look at those elements corresponding 
to birthdays which have been assigned. The assigned 
birthdays are contained in the BDAY( ) array. Consequent- 
ly the program uses BDAY(PERSN) as an index into the 
elements of Cr( ) which are non-zero. 

Try a simple example to understand this data struc- 
ture. Suppose there are three people in the group. The 
first and third persons' birthdays are January 10 (DAY 
= 10) and the second person's birthday is January 5 (DAY 
= 5). The non-zero values of BDAY( ) and Cr( ) are 
as follows: 

BDAY(l) = 10; BDAY(2) = 5; BDAY(3) = 10 

CT(5)=1 ; CT(10)=2 

The program loop starting at line 140 to check for dupli- 
cate birthdays looks only at elements of Cr( ) correspond- 
ing to valid BDAY values. Program execution is thereby 
much faster than if every value of CT had to be checked. 

As soon as a Cr( ) value greater than or equal to two 
is found (implying that at least two people share that birth- 
day), lines 160 and 170 are executed. The SUCCESS flag 
is set to one in line 160. The loop parameter PERSN is 
.set to the upper limit of the loop so when line 180 is 
executed, the loop is finished. The program quits search- 
ing for matching birthdays as soon as it finds the first one. 

Line 190 tests the SUCCESS flag. If it is one, the to- 
tal number of successful groups TTL is incremented. 
Lines 200 and 210 display the current percent probabil- 
ity of success based upon all groups simulated so far. 
Line 220 increments the number of groups and the pro- 
gram is repeated for a new group. SUCCESS is reset 
to and the non-zero values of CT( ) are zeroed. 

Eventually the results of this program should approx- 
imate the results calculated in the previous program. Once 
again, the non-randomness of the random number gen- 
erator will not give ideal results, but the results should 
be close to the expected values. 

This type of random number simulation is actually used 
in research to estimate values for quantities which are 
very difficult or even impossible to calculate exacdy. 'Vbu 
can read more about computer simulation in the McGraw- 
Hill Encyclopedia of Science and Technology and other 
encyclopedias under the topics of "Simulation" and "Monte 
Carlo Methods." 

Next month we will compare the techniques of enum- 
eration and random simulation as we analyze some tumb- 
ling dice. What is the probability of rolling "an eleven" 
with three dice? Working out such a problem by hand 
is quite a chore. We'll let the computer figure it out next 
month, n SEE PROGRAM LISTINGS ON PAGE 90 
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ach month, we'll present several challenges de- 
signed to stimulate your synapses and toggle 
the bits in your cerebral random access mem- 
ory. We invite you to send your solutions to: 

Commodares, c/o Ahoy! 

P.O. Box 723 

Bethel, CT 06801 

We will print and discuss the cleverest, simplest, short- 
est, most interesting and/or most unusual solutions. Be 
sure to identify the name and number of the problems 
you are solving. Also show sample runs if possible, where 
appropriate. Be sure to tell what makes your solutions 
unique or interesting, if they are. Programs on diskette 
are welcome, but they must be accompanied by listings. 
You must enclose a stamped, self-addressed envelope if 
you vrant any of your materials returned. Solutions re- 
ceived by the middle of the month shown on the magazine 
cover are most likely to be discussed, but you may send 
solutions and comments any time. Your original program- 
ming problems, suggestions, and ideas are equally wel- 
come. The best ones will become Commodares] 



Problem #20-1: Screen Scramble II 

This is a variation on the problem suggested last month 
1^ Jesus Geliga Torres (Aguadilla. PR). Write a program 
which transforms the image on the screen into a new im- 
age such that (a) the top line from left to right becomes 
the bottom line from right to left, (b) the second line from 
the top becomes the next to the last line, also in reverse 
order, (c) and so on for each screen line. The shortest 
solution is the best. 



Problem #20-2: Numeral Converter 

Jim Speers (Niles, MI) suggested this problem. Write 
a program which will input numbers in English and trans- 
late them into numeric form. For example, "eight hun- 
dred thirty four thousand five hundred seventeen" would 
be converted to "834517." Make your program a "bare- 
bones" solution with no frills. 



Problem §20-3: Decimal Endings 

Martin Levinton (New Rochelle, NY) proposed the 
following challenge. Write a program which prints the 
integers 1 through 100 and states whedier the reciprocal 
of each number is a repeating or a terminating decimal. 



If it is a repeating decimal, the program must state the 
period of repetition. Some examples are in order here. 
The number 4 has a reciprocal of 1/4 which has a deci- 
mal value of 0.25 which is exact (terminating). The num- 
ber 11 has a reciprocal 1/11 with a repealing decimal rep- 
resentation 0.090909... and a period of 2. Any questioas? 



Problem #20-4: Hyphen Help 

The user inputs a word. The computer displays all rea- 
sonable ways of hyphenating the word. For example, if 
the word is "reciprocal," the output should be 

re-ciprocal 
reci-procal 
recipro-cal 

and if the word is "good," the output should be "gtxxl-" 
If you submit a solution to this one, please summarise 
in REM statements or elsewhere the rules you are using. 

This month we will di.scuss readers' solutions to Com- 
modares from April. A few people thought that Prob- 
lem #19-1: Numerical Colum/is was an April Fiwl's joke, 
since it cannot be solved in general. The problem was 
bom of necessity since I occasionally need numbered 
checkoff lisLs. and using the computer to create them 
seemed like the thing to do. The problem was to print 
out N numbers in C columns with all columns being of 
equal length except for the la.st one. which might be short- 
er. If the user enters 5 for the number of column.s and 
U for the highest number to be printed, a conflict aris- 
es. Clearly there is no arrangement of II numbers into 
5 columns with the last column shorter than the other tour. 

Unfortunately, no one sent an analysis of what's wn)ng 
with the problem. If the user specifies either one or two 
columns, there is no conflict for any number of items. 
With three columns, it is impossible to satisfy the con- 
ditions of the problem when N equals I or 4. (This as- 
sumes that the last column need not contain any items.) 
Similarly if C equals 4, troublesome values of N arc 1. 
2, 5, and 6. If C equals 5, N cannot equal I. 2. 3. 6. 
7, 8, or II. If you can come up with a general explana- 
tion for which values of N may not be specified for a 
given C, let us know. For example, if C is 20, can you 
predict which values of N won't fit? 

Among the simplest .solutions to Problem #19-1 was 
this one from John K. Lundc (Orono. ME). 

1 REM 

2 REM COMMODARES #20 
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3 REM PROBLEM #16-1 : NUMERICAL COLUMNS 

4 REM SOLUTION BY JOHN K. LUNDE 

5 REM 

10 INPUT"COLUMNS";C:INPUT"LAST NUMBER" ;L 

:I%=(L-1)/C+1 

20 Y=Y+1:F0R C=Y TO L STEP 1%: PRINT RICH 

T$(" "+STR$(C),5);:NEXT:PRINT 

30 IF Y<I% THEN 20 

Another way of rounding a number up to the next larger 
integer is shown in this solution from John R. Prager 
(Bay City, MI). 

1 REM 

2 REM COMMODARES #20 

3 REM PROBLEM #16-1 : NUMERICAL COLUMNS 
A REM SOLUTION BY JOHN R. PRAGER 

5 REM 

100 INPUT "NUMBER OF COLUMNS" ;C%: IF C%< 
1 OR C%>5 THEN 100 

110 INPUT "ENDING NUMBER" ;N%: IF N%<1 OR 
N%>1000 THEN 110 
120 X=INT(N%/C%+.9):F0R J=l TO X 
130 FOR C0L=0 TO C%-1:IF J+C0L*X<=N% THE 
N PRINT TAB(C0L*6) J+C0L*X; 
140 NEXT: PRINT: NEXT 

Solutions to this problem and others were received from 
Jim Speers (Niles, MI), Joey Klein (Chalmette, LA), 
WiUie J. Fitzpatrick, Jr. {Huntsville, AL), Jim Barranti 
(Canonsburg, PA). Ira Kroll (College Park, MD), J.R. 
Tomaselio (Crosby. TX), Roger Leger (New Westmin- 
ster. BC), Jacqueline Callaway (Orange Beach, AL), 
James Borden (Carlisle, PA), Frank Gourley (Kenesaw, 
NE), Bill Fahber (Bridgeton, NJ), Brano Zidovec 
(Kitchener, ONT). Kevin Collins (Toledo. OH). Gary 
Hudach (Youngstown, OH), Grace Ippolitto (Denver, 
CO), and Richard Gray (Ludlow, VT), 

The shortest routine to solve Problem ffl6-2: Quick 
Decimal was submitted by Brano Zidovec (Kitchener, 
ONT). He points out that the only problem with his solu- 
tion is that it does not limit the input to numbers and 
the letters A through P. Still, the problem requested the 
shortest routine, so here it is: 

1 REM 

2 REM COMMODARES #20 

3 REM PROBLEM #16-2 : QUICK DECIMAL 

4 REM SOLUTION BY BRANO ZIDOVEC 

5 REM 

10 INPUT A$:F0RI=1 TO LEN(A$) :B=ASC(RIGH 
T$(A$,I)):C=C+(B-48+7*(B>57))*16"(I-l) 
20 NEXT: PRINT C 

Solutions for this problem came from others not men- 
tioned above including Scott Wiltbng (Cedar Rapids, lA), 
William H. Feyer (Atlanta. GA), Don Wynkoop (Dover, 
DE), and Garry Hurley Jr. (Williamsport. PA). 



The number of correct responses to Problem ffl6-3: 
Tune Warp indicates that many readers know physics as 
well as computers. The solution below suggested by Bill 
Fahber (Bridgeton, NJ) is representative of several others. 

1 REM 

2 REM COMMODARES #20 

3 REM PROBLEM #16-3 : TIME WARP 

4 REM SOLUTION BY BILL FAHBER 

5 REM 

10 INPUT"++ELOCITY , % OF C";V 

20 PRINr'-f-HAT IS";V*6706166.256"MI/HR" 

30 PRINT"OR" ; V*2997 .924562 ; "KM/SEC" 

40 PRINT"+OUR YEAR IS";(l-(V/100)*2)*-.5 

; "YEARS." 

A few embellishments added by other readers are worth 
noting. John Prager (Bay City, MI) included a statement 
in his program that the velocity to be entered must be 
less than 100 percent of the speed of light since "no tach- 
yons are allowed!" R.J. Kaider (Chicago, IL) gave credit 
in his REM statement to "H. Lorentz, G. Fitzgerald, A, 
Einstein, et al." James Borden (Carlisle, PA) in his 
COMAL language solution allowed the user to enter a 
rocket speed of 100 percent the speed of light. His pro- 
gram responded that a year on the rocket would seem 
like infinitely many years on earth in such a case. A few 
readers mentioned that it doesn't matter whether we as- 
sume that the earth or the rocket is moving. Time as mea- 
sured from our system is always observed to be progress- 
ing more slowly in the other system. As Jim Speers 
(Niles, MI) pointed out. "That's why they call it relativ- 
ity!" Keith Kushner (Brooklyn. NY). Tim Sapp (Mt. 
Vernon, OH), and Mark Crother (Wilmington, CA), in 
addition to readers mentioned earlier, sent solutions to 
this Commodare. 

If your interest has been whetted by this little prob- 
lem, two books that I highly recommend are Tiie Rela- 
tivity Explosion by Martin Gardner (Vintage, 1976) and 
Mr. Tompkins in Paperback by George Gamow (Cam- 
bridge University Press, 1967). Both books are most en- 
joyable and informative reading. 

Problem MI6-4: Common Pairs was a bit of a challenge. 
The most common approach was to fill a 26 by 26 array 
with the count of each occurrence of every pair of let- 
ters in the given sentence. Fred Ransom (Oxnard. CA) 
referred to this as a distribution sort. The solution from 
Jim Speers (Niles, MI) is listed below. 

1 REM 

2 REM COMMODARES #20 

3 REM PROBLEM #16-4 : COMMON PAIRS 

4 REM SOLUTION BY JIM SPEERS 

5 REM 

100 DIM M(26,26) 

110 PRINT CHR$(147)CHR$(17)"ENTER TEXT. 

USE + FOR CONTINUATION": PRINT 

115 PRINT"MAXIMUM=255 CHARACTERS" :PRINT: 
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WHITE HOUSE .ho«.«— 1-717-322-7700 
COMPUTER 



PHONE ' 

P.O. BOX 4025, 

WILLI AMSPORT, PA 17701 



DISK DRIVES 
C64 

I54T 185,95 

1571 249.95 

1572 375.95 

MSD Single 229.00 

MSD Dual 459.00 

Indus GT 239.00 

Cardco SCD- 1 . . . 199 00 

INTERFACES 

Tymac 

Connection/2K . 62.95 

Cardco t G 69.96 

Cardco B 37.96 

OR D 

GPC W/2K 55.95 

Grappler CD . ... 89.95 

PRINTER PAPER 

Lazor 1 000 Shis. . 15.95 
Lazor2500shts. . 29.95 

DISKETTES Jf 
SKC 

SS/SD 10.50 

SS/DD 13.50 

DS/DD 15.50 

MAWELL 

MD-1 15.95 

MD-2 21.95 

ELEPHANT 

SS/SD 1 3.50 

SS/DD 15.50 

DS/DD 19.50 

INNOVATIVE 
CONCEPTS 

Flip-N-File 

10 3,50 

15 8.50 

25 18.50 

w/lock 

50 17.50 

50 23.50 

ROM Holder. . . 1 7.50 

KOALA 

Pad Disk 39.95 

Pad ROM 45.95 



HOURS: Monday thru Friday 9;00 am till 6:00 pm 

VISA and MC 
Accepted 4% 



COMPUTERS 
C-64 149.95 

C-128 ...275.95 



PRINTERS 



c-64 

MPS 801 179.95 

802 208.95 

803 1 75.95 

MCS801 314.95 

DPS 1101 314.95 

CITIZEN 

MSP-10 325 

MSP-15 479 

MSP-20 469 

MSP-25 629 

EPSON 

RX80 ,219 

LX80 249 

FX80 369 

JX80 529 

RX100 369 

FX100 550 

C. ITOH 

8510A 285 

8510 BC1 329 

8510 BC2 389 

8510 BP1 339 

a510SP 389 

8510SR.... 429 

8510 SCP., 459 

8510 SCR 477 

1550 BCD 485 

1550 P 445 

A10-20P 465 

F10-40P/S 875 

F10-55 P/S 1059 

FIOTractor 169 

FlO Sheet Feeder 349 



MANNSEMAN TALLY 

Spirit 80 249 

MT 160L 495 

Ml 180L 595 

STAR MICRONICS 

SG10 217 

SGI 5 379 

SD10 345 

SD15 450 

SR10 485 

SRI 5 585 

Powertype 309 



CARDCO 

LQ 1 

>LQ3. 



,365 

209 



PANASONIC 

1090 187 

1091 257 

1 092 389 

1093 585 

3151 455 

LEGEND 

880 209 

1080 229 

1380 269 

1385 305 

OK I DATA 

182.... 219.95 

84 640.95 

92 349.95 

93 560.95 

Imagewrrter 425.95 



MONITORS 




AMDEK 




300G- 


119 


300A 


. ... 129 


31 OA 


., 145 


Color 300 


235 


Color 500 


345 


Color 600 


399 


Color 700 


469 


Color 710 


539 


TEKNIKA 




MJ-10 


229 


MJ-22 


285 


XTRON 




Comcolof 1 


189 



SOFTWARE * 

BATTERIES 
INCLUDED 

Paper Clipw/Spell Pk . . 69.95 

Paper Clip 59.00 

Home Pack 32.95 

Bus Card II 124 95 

B1 80 Board 99.95 

BRODERBUNO 

Print Shop 29.95 

Graphics Library 1 8.95 

B.S. Writer 32.95 

EPYX 
FAST LOAD 23.95 



PRIMTER RIBBOMS 



ZENITH 

122 . . 
123 

BMC 

Amber 
Green 



85 95 
75 95 



.82 95 
79-95 



COMMODORE 

C-1702. .19995 

C-1802 .....204.95 

C-1902 RGB 259.95 

C-1901 Monchrome... 129.95 



.3\^^^ 



VIDEO CASSETTE ^ ^ 
RECORDER $295.^ 

Symphonic VHS/Remote 

• 105 Channel Cable Ready 

• 14 Day/ 1 Program Timer 

• 12 Pre-set Channels 

• Auto Rewind CHECK 
Plus much, much more! OGR PRICES! 




MODEMS 

C-1600 44.95 

C-1650 54.95 

C-1660 54.95 

C-1670 185.95 

300/1200 Band 



Cardco 

MOD-1 59.95 

C-64 

MPP-1064 ...65.95 

Tele 

Learning 49.95 

iiiiiiiiiiniiiinii 



DOST COVERS 

Mitey Mo ...59.95 
Westridge. .. 69.95 
CompuServe 
Starter Kit... 21.95 



WE CARRY A FULL UNE OF: 

Batteries Inc., Broderbund. Conlmeal. Hess, Infocom, 
Innovative Concepts, Koala, LJK, Microbits. Micro- 
pose, Mjcroiek, O S.S , Professional S.W Scarborough. 
S SI, Synapse. Time Works. Wico. 



POLICY: No deposit on COD orders. FREE freight on 
all prepaid cash orders over S300 in the continental 
USA. APO and FPO add S5 per hundred. For priority 
fVlail add S8 per hundred PA Residents add G% sales 
lax Defective producis must have Prior RA number 
Schools net 1 5. 
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S$="" 

120.P0KE631,34:P0KE198,1:INPUTA$:IFRIGHT 

$(A$,1)<>"+" THEN 140 

130 S$=S$+LEFT$(A$,LEN(A$)-1):PRINT"LENG 

TH=";LEN(S$):G0T0120 

140 S$=S$+A$ 

145 F0RX=1T0LEN(S$)-1:X$=MID$(S$,X,1):G0 

SUB200:A=Z 

150 X$=MID$(S$,X+I.1):G0SUB200:B=Z:M(A,B 

)=M(A,B)+1:NEXTX 

160 PRINTCHR$( 147 )CHR$( 17 )S$: PRINT :FORA= 

1T026:FORB=1T026;IFM(A,B)<2THEN180 

170 PRINTCHR$(A+64)CHR$(B+64)"=";M(A,B), 

180 NEXTB,A:END 

190 PRINTCHR$(A+64)CHR$(B+64)"=";M(A,B), 
200 Z=ASC(X$)-64:IFZ<10RZ>26THENZ=0 
210 RETURN 

Jim's program allows the user to enter the [back arrow] 
as a continuation character in order for the INPUT state- 
ment to handle strings longer than 80 characters. Line 
120 POKEs a quotation mark into the keyboard buffer 
and POKEs a one into the keyboard buffer counter. That 
allows the user to type commas in the input sentence. 
The 27 by 27 array M( ) uses the zero row and col- 
umn for "garbage collection" such as spaces and non-al- 
phabetic characters. Each letter pair is converted to two 



numbers which defme the element of M( ) to be incre- 
mented. For example, the letters "AZ" would be transla- 
ted to '*l,26" in line 200. Matrix element M{l,26) is then 
incremented in line 150. Line 170 scans through matrix 
M( ) looking for any elements with a value of 2 or great- 
er, indicating that the pair occurs more than once. The 
common pairs are printed by line 170. 

How many readers know the most common character 
used in standard text in the English language? The letter 
"E" you say? Nope. One character is more frequent. How 
about the frequency of letter pairs or triples? A most im- 
pressive analysis of such matters (as well as many others) 
is contained in Scientific and Engineering Problem-Solv- 
ing with the Compuier hy William R. Bennett, Jr. (Pren- 
tice-Hall, 1976). If you ever run out of things to do on 
your computer, Dr. Bennett's book will provide a limit- 
less source of ideas. 

Here's one final challenge for those of you interested 
in the problems of letter frequency and cryptography. 
Modify your solution to Problem §l&4 so that it can read 
and analyze text from tape or disk files. Type a large 
block of text to a file, then calculate the letter frequen- 
cies and compare them with other such files. Use your 
calculated frequencies to decipher encoded text where 
one letter has been substituted for another. Jg zpv dbo 
efdjqifs uijt tfoufodf, xsjuf boe ufmm vt ipx zpv eje ju. 
Happy programming! D 



Make Your Home Secure and Energywise 

. . . with Genesis Home Control Products 

At Genesis Computer we produce a complete line of home security and energy management products. They combine with 
your Commodore 64 to make your home safer and more energy efficient while increasing your personal convenience. 

The Genesis VIController allows you to control up to 256 lights and appliances itiroughout your home using standard BSFi 
receiver modules. With the included software, you can create daily and weekly conlrol schedules. 

Your system can be expanded by adding Genesis' COMsense input device, Super 

Schedule Plus software, and availatjie sensors. Commands can fssl' . jA 

then be issued in response to on/off Inputs such as the ■,.- ■^'•l^?|g': ■/•^v^rAi^^y^ A^\ 

opening of a door or analog Inputssuch as a change in y^^i^Ci^jii^i^i'' ^/v/-;;\;<'^-.- ■ ■; -viKiTiir^'^i^ 

light level. By adding COMclock. a crystal ■ ■■■■ ■""l"' 

controlled clock/calendar, your system will 

have an accurate, battery 

backed-up lime base. .. ,.,yvpam;atp'ii . ,._, , ..,,,_. 

COMciock's Autoboot ROM .^^-fii^riyP".;- --,..':^v.v 

acts as a failsafe restart for 

the system in the event of 

a power failure. 




Sold separately the VIController, 

COMsense and COMclxk 

sell for $69.95 each and " """"^ 

the Super Schedule Plus software sells for $19.95. All four products are available together in our HOME CONTROL 

PACKAGE for only $199.95. 

Call 21S861-0850 to order direct or contact your local dealer. 



Genesis Computer Corp. 



P.O. Box 152 



Hellerlown, PA 18055 



ufaiiltitan utdnnt g( namu ta imng lOr in Qi win flilm 'vkIHMIi Ht IIJ/I ^'Li^iictt S«r>uv #mi a i 
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RI-VII-WS 



FELONY! 

CBS Software, Inc. 
Commodore 64 
Disk; $34.95 

Last year's Murder By The Dozen 
challenged would-be detectives to 
solve 12 homicides in the little town 
of Micropolis. The same design 
house. Brain Bank, has finally deliv- 
ered this long-awaited sequel. 

The pressure is mounting on Sean 
M, McHugh, the police chief of 
Huxley, Anywhere, U.S.A. The gov- 
ernor wants action on a dozen un- 
solved cases ranging from the theft 
of a major archaeological find to a 
terrorist threat to blow Huxley right 
off the map. 

One to four armchair investigators 
compete against each other and the 
time limit to discover the guilty par- 
ty and unearth enough clues and evi- 
dence to help the prosecutor win a 
conviction when the case goes to trial. 

Felony! is a strategy game built 
around a set of interactive onscreen 
menus. Each turn, the crime compu- 
ter offers every detective a choice of 
seven possible actions. A player can 
only perform one activity per turn. 
The precise options which are avail- 
able depend on the case involved and 
the sleuths current whereabouts. 

In broad terms, a player can ques- 
tion one of several suspects, exam- 
ine physical evidence, or move to a 
different location to pave the way for 
a new line of inquiry. The police 
headquarters has some special op- 
tions found nowhere else in town. 
These include a records computer 
with data about known criminals, a 
laboratory to analyze evidence, and 
access to your fevorite stool pigeon. 

The detective enters the number 
printed next to his or her choice on 
the menu to select an action. The 
program responds with a list of sev- 
eral numbers which are keyed to sev- 
eral of the 700 entries printed in the 
Felony! clues book. The player looks 
up each code number in the clues 
book and writes down a series of 




Felony!: the long armchair of the law. 
READER SERVICE NO. 176 

short phra.scs which combine to lunn 
a message. Sometimes, all that work 
gets a frustrating "no clue" result, but 
the investigator usually gets one or 
more juicy facts that can help catch 
the perp and solve the crime. A result 
of "99-99" indicates that the detective 
is barking up the wrong tree and 



'Tfeh'^tSs-^UJa.-*'"*^'*" 






in 'SJ^ ,», .. 



Felony! boasts an electronic town map, 
lacking in prequel Murdtr by the Down. 

should head in a new direction. 

The clues system is undeniably 
cumbersome, but it gets the job done. 
It effectively prevents a player from 
inadvertently noticing additional 
clues while receiving information he 
or she is legitimately entitled to. 

Every activity expends precious 
time. A compu-cop must wrap up the 
case as quickly as possible to receive 



a high rating, and many of the crimes 
must be solved by a deadline. It takes 
three minutes to question someone, 
five minutes to examine evidence, 
and a variable period to travel from 
place to place. 

The program prompts each detec- 
tive in turn to perform an activity. 
The crime computer gives any police 
officer who has accumulated at least 
20 minutes on the crime computer 
clock the chance to advance a solu- 
tion to the case at hand. To win, an 
investigator must not only name the 
criminal but also provide supporting 
data in the form of motive, evidence, 
and clues. 

A player who wants to charge a 
suspect looks up the case in the solu- 
tions book. By placing a red plastic 
sheet over the appropriate page, the 
accuser can read the actual facts of 
the case. If the solution is correct, 
that detective wins the game and re- 
ceives a competence rating from the 
program. If the theory is wrong, the 
game proceeds, minus the erring 
sleuth, until someone does come up 
with the right answers. 

Felony! is certain to please anyone 
who enjcyed Murder By The Dozen. 
The sequel has improved artwork, an 
electronic town map, more intriguing 
situations, multiplier capability, and 
a more understandable format for the 
onscreen menus. 

No computer game is perfect, and 
Felony!, too, has defects. The most 
glaring is that the visuals are still not 
on the same high level as the game- 
system. BrainBank has clearly made 
an effort to upgrade this facet of its 
work, but there is still room for im- 
provement. An illustration for each 
of Huxley's 28 IcKiations would dress 
up a program like this considerably. 

When all is said and done, it's the 
quality of the cases which distin- 
guishes a computer mystery game. 
And the dozen crimes of Felony! pro- 
vide an enjoyable test of the ability 
to think logically and solve complex 
problems. 
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D-Compiler 

The first D-Compiler to give you back your source code 
after your program has been compiled with 'Blitz. 

'BUU 15 i tr»d«mart( of SfcylM Elecinc Works 



»59.95 



'^ 



1541 Super ROM 



«39.95 



• Fast Save Load Verify 

• Fast Scratch and Validate 

• 10 Second Format with Verify 

• No more Drive Head rattling 
during Format or Error Reading 



a/so Save with Replace Is 
Improved 

• Two times faster. Eight times faster 
when used with Turbo 64 which is included 



1541 Super ROM is 100% Compatible • Easily installed in l\/linutes 




tiPtiULO COPIES IT ALL 

APALLO Does It All. This program is the latest generation of 
copy programs, It will do everything the $39.00 and $49.00 pro- 
grams will do and more. It Copies ALL drive errors, bad tracks 
and sectors, non-standard format, bad syncs, and half tracks. 
We feel this is the best program of its kind available... 




$29.95 



MSD Sure Copy 

At last a complete utility package for the MSD Dual Drive. This 
is the first MSD utility program that does it all. The main 



Copy Protected Disk 
Copy Files 
Format a Disk 
Change Disk Name 
Quit 



Copy Unprotected Disk 
Scratch a File 
Rename a File 
View Directory 



$39 



95 



menu options include: 



Sure Copy will put all errors automatically on disk: 20, 21, 23, 27 and 29's. 



D-CODER 



Translates any machine language pfogram m\o easy- 
to- read English descnpiions wrtti complete explana- 
tions ot each cominand' 

Makes complete notations of atl importanl memofy 
locations accessed ty the progfsm' (SID. VIC, MOS 
KERNAL, etc ) 

Gives you three ways of accessing programs 
1 1 Will rsad and list programs Irom DISK 

2) Will rsid and list programs Irom MEMORYI 

3) Direct ut«r inpul (trom magazines, etc I 

Can De used to locate and examine any machine 

language program's protection rouhnes' 

Can be used to easily Oreak apart machine language 

programs (or study and examination! 

Pnnter option (or complete hard copy listings' 

Vqu no longer 
n«ed to be an 
EGGHEAD lo 
read Machine 
Language. 



$i995 




N-CODER S19.95 




the machine 
language manipulator . 

The perfect companion 
program to 0-CODER! 



Allows you to easily make changes in ma- 
chine language programs right on the disk! 

• Rewrite ability allows code lo toe altered 
and then rewritten directly to the diski 

• features sector-by-sector scrolling 
assemtily language display ot machine 
language programs' 

• Notation ot ASCII text equit>alents lor easy 
spotting ot en^bedded text strings' 

• Handy reference display of all assembly 
language commands and their ML 
numerical equivelents! 

• Byte splitter for easy splitting ot decimal 
addresses into low byte-high byit maf.' 



Super Loader 



Super Loader is a Kartrtdge that plugs into 
your expansion port, tnal allows the 
computor. on power upstart the disk drive 
and load the first preselected program on 
the disk. 



Change colors 

Load wedge 

Works wilh more drive 
■ Takes up no memory 
> Reset switch ir\clude(] 



■'•^'^f^- 



9T 



Only 



^29 



95 




This Disk has over 100 routines. 
some of them are routines for 
protection, smooth scrooling, modem 
routines, and sound and color 



routines. They can easily be 
incorporated into all of your programs. 
It is also fully documented. 



M9.95 
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Slik Load 



'29.95 

Slik Load is a Karlridge for the C-64. 

Slik Load is the most reliable, effective and thought out Kartridge of it's kind. 

The options include: 

• G timat fatter load • Status kay will give you information on 

• Eliitiinataa drive rattle when errof* device number, bytei tree and atatua of the 
are ancourttered. drive. 

a Old artd un-new • Silk Load it alao fully compatible with the 

MM reatora a baaic program 1641 Super Rom 





$19.95 



OMS-ETfon ?0 21 22. 23. 27 i 29 

Formal Sjngl* Tracks 

Read Difk Erroft 
% Track Hiaatr-fd and Mtact i Uacli 
'4 Track Form«it«r-Foffnaf • dtfk with '^ 
tracks Thift II wtiara tna nait protaclion 
Knamcs ire coming trom 
Oftva Mon-Oisk Onvt ■itambiar'^dit- 
aisambtar For your 1&4I 
Tha OoeOiik Oociof tt\ai raada code 
undar tfrors 

Sync Mahar-PtBce a sync mark on any 
track out to 4 1 Also uHd for protact'on 



Sync flaatfar-Cnack lor Sync bits on any 

track out 10 41 

Ctiania Drlva Ne.-Cnangas dfve 

numbar (7-30) 

DM LoMar-Ftnd* tiartiAg track aacior 

Stan and and add'vuai 

Olak feMdi-Compara any two ditkattat 

Byta tor byla 

H»m Wadga-Eaiiar to u»e DOS wadga 

10 Chack-Chack lO t on any t/a<k 

Unacralcti'Rastort a scralcrvad t.ia 

Vlaw-IAMVi«ual display of tha fraa ar^j 

usad sectors on s diskstta 



Maaal/Wma Taat-iMi pariorrrMinca tast 
^9»U a Tracfe-Rapair a track wlt^ 
crtackkum arrors Raads coda undar 
a'tor» and rasioras track 
Faat Fonnal- Formal a dtfk m )ust iO 
sacondK <wtih vanty') 



This is the only utility 
of its kind . It even has 
a 3 min. copy on it. 



WAR GAMES 
AUTODIALER 




T- 



/>&x 



1-Auto Oiat Will automatiCAiiy a^ai a sel ot numbers you chooM 
2-fltv)*w N<jmt>tri wilt raviaw numbers tnai were answered by a computef 
3-Seva Nuntbera will save numbers wnere a computer answered 
4-Han>copy of Numbers wni pnnt out I'SI of numbers wnere a compute' answered 
5*L0AD Numbers will load >n numbers to continue wnere >l letl of 
ft-Conun4ie will pick up dialing wnere it was interrupted 



*29.95 



EDFTLUFIRE. 
•HRNDBDDH 



3rd 

Edition 



THIRD EDITION' NOW AVAILABLE! 
I' you re Urad ol bemg harassed Py protecled »ottwar» and loo many copy 
D'ograms, men ihis is Ihe Book for you' This 224 (jage manual covers the 
gambit Irom legalities to protection methods to stepby-step bacli up pro- 
cedures Now you can learn txith how to prolact and unprotect sottwarei 
The techniques covered include copying cartridges lo tape or disK. tape pro- 
tection and disk protection Disn protection covers error no s 20 21 22 23 
27 and 29 plus smgie track tormanmg neader modification header swapp 
tng. halt track reading and writing, reading and writing modified bit densities. 
lormaning illegal tracks^seclors, sync writing ana moral The Third edition ax- 
plaini. tells how to detaci and tv)w to mrrlla them with included software 
Eleven useful utilities and many protection listings' Our disk analysis programs 
reveal the protection methods used on your onginals A diskette with all soft- 
ware IS available for a minimum eaira charge Thu may riot be the only book 
your stwuid have for Uia C-M, but it is certamiy Iha one book you should 
not be wtthoull 



C64 Book only 

Book i Disk of all programs 

Vic 20 book Can & Tapes oniy 



S1995 US 

S29 95 US 

$9 95 US 



THIS MANUAL DOES NOT CONDONE PIRACY 
•SHIPPING $2 00 



KARTRIDQE KRACKER 

WOliV you can own lhi$ unique and powertui tool 
which will allow you to dump the contents ol SK 
and 16K caandges onto disK' But whafs realty 
great ts that you can also RUN the cartndges pro- 
grams without plugging m the cartridge' Ihe 
KRACKBR gets YOU INSIDE the cartndge! Put 
all your favontes on disi< and gel rid of the clut- 
ter This package provides your with the software 
and hardware needed to get started Program on 
disk included (Some cartndg«s require use ol ex- 
ternal RAM not included) 




•44.95 



TOP SECRET STUFF 

All CI 28 Compatible 



Split Screens (Honzontally) 
Smooth Scrolling 
Save Ram From Under Roms 
No Drive Rattle On Errors 
Triple Drive Head Speed 
Aulobool Matter 
Koala Screen DUmp 
Display GCR 
Fast Disk Eraser 



Protect Scheme For Your Disks 

Write Protect Disk 

Unwrite Protect Disk 

Mini DOS Wedge 

Fast Oiskmatcfier 

Data Statement Maker 

Unnew 

3 Minute Copy 

DMS 



If you have TSS^h You'll 
Like This One! All on one disk 



M9 
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Bulletin Board 

S*r up tnti op«rml9 yout omn bulWm t}oarO with o/i# 
or two tf'j* ai'vas This on* r»«s •/' rft# t»aiuf9i and 

fOu CAn cuirom'/0 ir »Hi/y yourtmit 



'-RUN MEGASOf r-BBS 

2 CREATE MEGA FILES 

3 ADO TO SVSOP S COf«NCtl 
* SEW SYSOP S CORNEB 

5 READ MESSAGES 

6 SrRATCH MESSAGE 

7 CVCLE MESSAGES 



S REAP SVSOP MESSAGES 
9-VVRITE OPENING MESSAGE 

10 READ LOG 

1 1 CVCLE LOG ^ 

12 READ DOWNLOAD fILE '^ 

13 SCRATCH DOWNLOAD FILE 1 

14 ADO TOOIMER SYSTENIS ) 

15 CREATE OTHER SYSTEMS i^^^n 



'59.95 ggg 

• Leveled Access • Expert Mode 

• Private Message Base • Open Chalk Board for 

• Up to 300 Passwords Highest Level Access 




EnciOM Catmen Cxec* Moner Order c Persona' 
Cri«C" Alio* 14 days for dai-va'^ J lo ' 34^* 'o* 
prione Giatu Canada o'oa'i ^uv i* - u S 
Ooiil'l VIS* - MASTEB CARD - r J 



Pro9r»m» lo< C-«a 



UOOSt f«on«ierM>' 




MegaSoft 



Limited 



Sofiwara $uOmiaaK>nt invtietf 



P O Box 1080, Battle Ground, Washington 98604 

Pr^one /?0€) 687-51 16 • BBS 687-5205 *ie. H<x,.s Comoui.. 10 Compui. 
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No. 


Company 


No. 


40 


Ace Software 


189 


9 


Alsoft 


2U 


4 


Apcad 


2H 


S 


Big Bytes 


»5 


u 


Bjics & Pieces, Inc. 


216 


63 


CBS Software, Inc. 


m 


23 


CaM-B. Compuny 


235 


18 


CVC Online 


212 


67 


Centra] Pbuit Software, Inc. 


181 


12 


Cheatsheet Products 


207 


29 


Conunodore Business Machines 


m 


38 


Camputer InfomiiitiDn Limited 


193 


« 




221 


C-3 


CompuServe 


230 


40 


Covox, Inc. 


184 


69 


Custom Prognunming Group 


209 


20 


Datatech 


236 


84 


Digiul Vision, Inc. 


234 


66 


Epson America, Inc. 


199 


15 


Floppy House 


226 


T7 


Full Circle Sonware, Inc. 


191 


62 


Genesis Camputer Corporalion 


188 


17 


Hesware 


194 


31 


Inlcfirated-Sonware Systems 


223 


57 


Innoralive Organijers. Inc. 


222 


% 


Jason-Ranhcim 


190 


101 


M.A.R£.A. 


233 


48-49 


Mastertronic International, Inc. 


232 


64-65 


Me^aSoft Limited 


220 


55 


Microcomscribe 


W 


39 


MicrovBtions 


m 


8 


Mindscape, Inc. 


202 


8 


Mindscapc, Inc. 


203 


7 


Navarone Industries, Inc. 


200 


C-4 


Navarone Industrie, Inc. 


231 


11 


Okidata 


206 


10 


nmamax 


205 


82 


I^rsec Research 


21S 


81 


IVripheral Systems of America 


227 


68 


Professor Jones 


208 


42-45 


Protecto Enterprlzes 


177-180 


74 


Quantum SoflHare 


192 


25 


R.J. Brachman As.'jociates, Inc. 


182 


16 


Robin's Software 


198 


21 


Roger Wagner Publishing, Inc. 


186 


72 


SKOK 


218 


9 


Simon & Schuster 


204 


T9 


Software Link 


196 


26 


Solid State Software 


183 


C-2 


subLOGIC Corporation 


229 


86 


T&D Software 


238 


75 


TPUG, Inc. 


225 


24 


Tenex Computer F.xpress 


228 


7 


Timewvr1<s 


201 


n 


Ullrabyte 


219 


10 


VMC Software 


117 


61 


White House Computer 


224 


71 


Xelec, Inc. 


197 


Thi 


publisher cannot assume responsibility 




for errors in the above listing. 
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CBS Software. One Fawcett Place, 
Greenwich, CT 06836 (phone: 203- 
622-2500). -Amie Katz 

HOMEWRITER 10 PRINTER 

Epson America, Inc. 
$299M 

The Epson HomeWriter-10 is a fric- 
tion feed, impact dot- matrix printer 
that offers 100 cps speed in draft 
mode and is bidirectional and logic 
seeking. Additional features include 
more than 160 different type and style 
variations, full graphics capability, 
and an optional tractor feed attach- 
ment. Compatibility with most home 
computers, including the Commo- 
dore 64 and VIC 20, is achieved 
through the use of Printer Interface 
Cartridges that are available wherever 
the printer is sold. 

When my editor asked me to re- 
view the printer, I approached the 
project with great enthusiasm. I have 
been in the market for a new printer 
for some time now and could not pass 
up the chance to test something new. 
As an avid computer user I was fa- 
miliar with the Epson brand name 
and felt that I was in for a rare treat 
indeed. 

My enthusiasm began to wane, 
however, shortly after I finished set- 
ting up the printer. The setup instruc- 
tions (a glossy, full color, folding 
booklet) mad&no mention of how to 
access this printer's special features. 
Nor was there any mention made, 
aside from a cryptic reference to a 
mysterious "PIC manual," of the 12 
dip switches located on the rear of the 
printer. A hasty telephone call to the 
California number listed in the set- 
up booklet as being the Service Divi- 
sion netted me the information that 
I had, in fact, reached the corporate 
headquarters and would I please call 
my "local" service office in Connec- 
ticut? As I live in New \brk City, I 
was less than thrilled with the pros- 
pect of adding yet another long-dis- 
tance charge to my monthly bill. 
Feeling that my fee for this review 
would outweigh the associated tele- 
phone charges, I decided that the in- 
formation I needed justified the cost 
and placed the call. 

I should have quit while I was 







NLQ must be seen to be believed. 
READER SERVICE NO. 199 

ahead. My first call to Epson East 
was answered by a harried sounding 
woman who, upon hearing my re- 
quest, promptly placed me on hold. 
Five minutes later, during which she 
broke in eleven times to ask if I was 
being helped, I was disconnected. 
Repeated calls back netted me 35 
minutes of holding time, four more 
disconnections, and the information 
that the mysterious "PIC manual" 
should have been packed in the box 
containing the interface cartridge. 
Frustrated and angry, I decided to caU 
once more. This time, using my jour- 
nalistic credentials, I managed to get 
through to the advertising department 
after a twenty minute wait, where a 
young lady seemed very disappointed 
that I was not interested in buying ten 
more printers at a special bulk rate. 
She was, however, very happy to 
transfer me to a service technician 
who cheerfully explained that 50 
printers were accidentally shipped 
without operating manuals and if I 
would tell him where I purchased my 
printer he would gladly send me a 
manual for $3.95! Not having that in- 
formation at hand, I declined his of- 
fer and inquired about a minor glitch 
with the printer that caused lowercase 
"o's" to drop below the print line in 
any mode other than Near Letter 
Quality. His response was that he had 
no idea why that happened but he 
would get back to me. As of this writ- 
ing, 1 month later, I am still waiting. 
The problem of the missing man- 
ual was eventually solved by open- 
ing up a second interface cartridge 
package and removing the manual 
from there. I was able to run the 
printer dirough all of its print modes 



¥ 



and find myself quite impressed with 
it. The Near Letter Quality mode has 
to be seen to be Iselieved! It even ri- 
vals my old Underwood typewriter 
for the quality of its print. 

Though versatile, there are a few 
problems with this printer. Previously 
mentioned was the anntying tendency 
tor the lower case "o" to drop slight- 
ly below the print line, causing the 
line to appear ragged and uneven. 
Another glitch occurred when I used 
one ot the dip switches on the rear 
of the printer. Supposedly, this switch 
would cause the printer to place a 
backslash (/) through the number 
zero. What actually happens is that 
the zero is replaced with the graphic 
symbol you get when you press the 
Commodore and asterisk keys simul- 
taneously. This is not as big a bug as 
it could be, though, due to the fact 
that in all except NLQ mode the dif- 
ference between the number zero and 
the capital letter '*0" is readily appar- 
ent, and most users vwuld not need 
to make u.se of the offending switch. 
The third problem with this printer 
occurs whenever it is taken offline or 
runs out of paper. Apparently this 
causes the printer to send a wait com- 
mand over the serial bus that causes 
the suspension of all serial bus op- 
erations until the printer is placed 
back online. I would much rather 
have the printer return a "Device not 
ready" error, due to the fact that most 
decent software will accept such an 
error and suspend printer operations 
without crashing. Suspending serial 
bus operations may lead an inexpe- 
rienced user to the erroneous conclu- 
sion that the computer has "frozen" 
when, in fact, the printer is simply 
out of paper. 

It should also be noted that the 
HomeWriter comes from the factory 
equipped for friction feed only. Us- 
ers who plan to use pin feed paper. 
or plan to print more than one page 
at a time, are advised to purchase the 
optional tractor feed attachment (list 
price $39.95). Printing of a long pro- 
gram or document rapidly becomes 
a chore when you have to stop the 
printer and realign the paper at the 
end of each page. 
While Epson advertises the Home- 



Writer-IO as having a print speed of 
100 characters per second, this speed 
is available only in draft mode. Other 
modes cause the print speed to drop 
(to as low as 16 cps). 

If Epson were to correct the vari- 
ous bugs in this printer, its overall ap- 
pearance and ease of use would make 
it a good value at the list price of 
$299. Commodore owners would 
then be well advised to consider this 
as an alternative to the MPS-801. But 
based on my experience with the Ep- 
son Service Department. I cannot 
recommend this, or any other, Ep- 
son printer until radical changes in 
the company's service organization 
are made. 

Epson America. Inc. . 2M) Lomita 
Ave., Torrance, CA 90505 (phone: 
213-539-9140). -BM Behling 

MICRO MAIL 

Island Digital Concepts 
Commodore 64 
Disk; $39.95 

Micro Mail is a menu-driven pix)- 
gram that allows users to easily cre- 
ate and maintain a mailing list of up 
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to 720 friends or business contacts. 
Once entered, the list can be searched, 
updated, sorted alphabetically on any 
field, or printed either in a list for- 
mat or on individual mailing labels. 

Once you've formatted a data disk 
to hold the information in your mail- 
ing list, you simply select the 
ENTER RECORDS option from the 
main menu to begin creating your list. 
Unlike some multipurpose database 
programs which require you to cre- 
ate your tile fonnat from scratch. Mi- 
cro Mail comes with a predesigned 
mailing list tbrmat that is ready to use 
when you begin. It consists of nine 
fields including Last Name, First 
Name. Address. City, State, Zip 
Code. Phone Number, and a special 
"Flag" field that can be used to se(>- 
arate friends from business contacts 
for selection purposes. 

Mistakes are no problem to cor- 
rect, either in the entry mode before 
you've filed the record, or by select- 
ing the EDIT MODE from the main 
menu. If you've entered someone's 
zip code incorrectly, for example, you 
just enter the number of the zip code 



BACKUP 
PROTECTED SOFTWARE 

with COPY II 64 

Froni the team who first brought yuu COPY II PLUS (Apple), COPY II PC 

(IBM) and COPY II MAC (Macintosh) comes a revolutionary new copy 
program for the Commodore 64, COPY II 64! 

• Copies most* protected software — uiiKJinafically. 

• Copies even protected disks in just [Wi minutes. 

• Maximum of four disk swaps on a single drive. 

• Copies half and full tracks. 

• Requires just one 1541 drive on the Commodore 64. 

Call M-F 8-5:30 (W. Coast time) with your S 90 : 503/244-5782. 
Or send a check (add $3 s/h, $8 overseas) to 

CENTRAL POINT 
Software, Inc. 

97lN».SWCdpilt)l Hw\- 'KKl 
f\)rllatid. OR 97219 




$39.95 



Wv u|t(tale Cop> II t'A nijularlv l« handk' new prtMwmms: yvu a.s a regis!? red tittinr itiav update al am 
liiiic tor \/2 pritpi (Tu ujxlatt' jusi send ()nHiii<-il disk diiil S2().| 

Thii pmduct IS iMJiitkd hw the purpose itf ermlilmii you in iiialie antmol crtpHn luih 
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Master 
Handicapper' 



^'If 




3ff 



PROGRAM 
GLD. Thoroughbrtd "Gold" Edmon^*' 

vonal and senaus novice (■) gg 95 cemp^we 

EGLD. Enhanctd "Gold" Edition™ 

"GdIc)" EditiOrt With complste M*sier BwiocTW syjiem irt«grat«] 
o<i|Q rre sairte dish Thrs povwiiui pfogram wiii transfer all horua 
and KO'M to lhe twt analysis with a "»ingl« h^ygirgke " 

fMmief BcmxTM tnciu4«4) S1fi9.95 eompliis 

GLTD. Llmlltd 'Gold'^** 

End)las Pn)ftt«lonal Han4lcapp«rii ip assign specific vjiIubs toiu 

lacing variables 'Jhey rrai ate important 

pftOFESSiONAt HANQICAPPtHQ SYSTEMS 

'^ ^ '^ 

A^e 5 Consisiency IS Speed 1G 

Class 15 Jocney 15 Workouis 

Condtlton 10 TfBinBf 5 Tirtw of Year 

Earnings S Pott 10 ConBislency ^ 

I<IO*t Is Everjrthpng OK (Y/N) 

Croats piogram weight baaed on a partictjlar track ^and rme tuna ri 
lor mBKtmufn wm pffrcantags TTiia program is designeti for ease 
of uae ' Tha uwr nwds r^o programmlrtg aKperienca. 

(conlains lnt«gral^ BellofTM) |299.95 completa 

GO. Cold Dog Analydi"'^*' ""^^^ ^^^^^ 
Tne orniy profassional dog handicapper on me marker includes 
1| Spevd 6) Condilion 

Z| Pmi Today 7) Running Style 

3j Kennel 9) ^^mghl 

4} Post Last 9) All new inlernal weighling 

S} Dtsiance 10) NEW class iridicator 

It you aio noat a gieYF^ou^d irach. you can! aftorti nof ta use tt:>s 
tyofff*^ *149.95comoieie 

{witti iniBg«aied Mistn- ewtorlM; St99.95 



Limited Dog™ S2?9,95 



ll^ 



r. Prof. Pii ' " 



MHH. Master Hame«a Handlcapper^** 

Pcotess'onal software ctesigneci: to provide a tnorougn analysis o( a'l 
liQtief ar>d pacer races rn Norin America vrvi Canada FearLirSi 
Class Post Positions Time Finish 

Dnver TrAck Cortditions Time Lasi Quarter 

Days Since Last Tfainer Track Rating 

GervMr Time "■'4 Tamp Allowance 

S159.9S compiota *(miograled Master BetiofTM $199.95 

PPX. Profauor Jonet' Football Pradiclor, Prof. Pix™ 
Complete Football Ar^aiysts wiih Oarta-BtH. 
1) Owrlays 4) "QvefrUriaer' oeta 

3) Pcxnt Spreads b) Data Base Slats 

3) Supe* Plays" G) Ho^ds lOO' leams 

HlQhaal pernntaQt ot mrlnr^era 1M3 $39. 9S compieie 

S99-95 wJh DaEa Base MariaQameni 

NBA. Bask«tbat|TM 

Tnis oaia base managed artjiyais wH ptov«fe \*t9 us*i wrth "ALL 
C}eiiFn9 Situations Ahiie sloririg iQl^vanl intorniaiion on ihfo dish 
S99.95 comptwe wfManuai $129.95 NQA/Coiiege Version 

LOT. LOTTERY ANALYSIS™ 

Slaiiaticai compaiison program designed !o detect subtle paiierns 

dd winning lo|le>rY numbers 

S79.9S comp^ole w/Manuai S99.95 with torn 



BROCHURE AVAILABLE 



Send ohK*. I money order/ VISA I Maslerchargo 
(Include expiration date] to: 



Prof. Jones 
1940 W. State St. 
Boise, ID 83702 



TeUEPHONE 
(208) 342-6939 



TERMS: FREE SWPPING ALL SOFTWARE. Add (6.00 tiard- 
ware I S6.0D C.O.D I UPS Blue Se.OO I Out of Counlry $9 00 
r 10 Residents 43b i 3 we«ks personal checks / Casti price 
only, add 2<^ Visa. MC / Prices subject to ciiange 



IBM, APPLE, TRS-80, 
C-64 AND OTHERS 
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field when prompted and type in the 
correct information. When you're 
done making corrections the new ver- 
sion replaces the old. It's also a sim- 
ple matter to completely remove en- 
tries from your list by using the 
DELETE option. When a record is 
deleted, its old number is reserved for 
the next new entry to your mailing 
list. In this way, the program ensures 
that all 720 available slots will be ap- 
propriated. 

The SEARCH/DISPLAY option 
lets you search your mailing list by 
filling in the Last Name field for the 
person you're trying to locate. If you 
are unsure of the exact spelling, you 
can still find the entry by supplying 
at least the first three letters. Unfor- 
tunately, searches can only be per- 
formed using the Last Name field. 
If you simply want to browse through 
the list without a specific entry in 
mind, you can choose the DISPLAY 
option and specify a starting record 
number. Then, using the function 
keys, you can scroll through the on- 
screen entries or return to the main 
menu. 

Although specific searches can 
only be conducted using the Last 
Name field, SPECL\L LISTS can be 
created using any of the nine avail- 
able fields. You could, for example, 
create a special list of all of the peo- 
ple in your file that have the same 
specified zip code, or a list of all bus- 
iness contacts if you've used the flag 
field for that purpose. This special list 
feature is not without a few limita- 
tions, however. First, since you can 
only use one field to input list cri- 
teria, there is no way to create a list 
of all business contacts who are lo- 
cated in a given state. Also, each time 
you create a special list, it overwrites 
the previous one. Thus, it is impossi- 
ble to maintain two special lists con- 
currently. 

When it comes time to print your 
mailing list, either in a list format or 
on individual mailing labels, you may 
select to print either the entire file or 
a special list you've created. The en- 
tries can even be sorted alphabetical- 
ly before you print, but here again, 
you must choose only a single field 
to sort on. Consequently, you can't 



sort by last name alphabetically with- 
in zip code or by last name and then, 
when more than one person has the 
same last name, by first name. 

Despite Micro MaiFs limitations, 
its onscreen menus and well-organ- 
ized documentation make it an excel- 
lent choice for C-64 owners who are 
buying a mailing list program for the 
first time, or anyone who wants a 
mailing list program that can be 
booted and used immediately without 
first reading through a thick user's 
manual. 

Island Digital Concepts, P.O. Box 
1758, Staten Island, NY 10314. 

—Bob Guemx 

MASTERDISK 

Integrated-Software Systems 
Commodore 64 
Disk; $34.95 

When my computer was new, and 
I wasn't sure what to do with it, a 
datacassette seemed the perfect 
choice for program storage. Tapes 
then seemed equivalent to disks ex- 
cept for speed. Well, that lasted al- 
most two months. First came the up- 
grade to a disk drive, then the modi- 
fications to the drive to make it even 
faster. 

But with speed came the insatiable 
desire for more programs. Now in a 
half hour, I can skim through sever- 
al programs— admiring graphics or 
just reading title screens -where once 
I could only load one. The piper de- 
mands his pay: I can't find any par- 
ticular program without a fifteen min- 
ute search. Flipping through piles of 
diskenes has replaced the time my 
datacassette took to load. 

Masterdisk is designed as the cure 
for this disorganization. It is a cata- 
loging program that automatically 
reads the directories from your disks, 
stores them, and allows you to search 
for the location of individual files. If 
you have five disks. Masierdisk will 
not save you any time. But if you have 
fifty, you will soon forget life before 
cataloging. 

Your disk catalog is stored right on 
the program disk. About 130 disk di- 
rectories will fit before the program 
disk is full; 100 is recommended as 
a cutoff for convenience's sake. For 
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jwur second 100 disks, you'll have to 
use a copy of Masrerdisk for another 
catalog. You might then want to re- 
organize so games are in the first 100, 
applications are in the second, etc. 

You may be surprised, however, at 
how cataloging will reduce your disk- 
ette use. All those partially typed pro- 
gram listings and experimental data 
files wil be easy to identify. And that 
one favorite program that's backed up 
eleven times may be deleted from a 
couple of disks. 

Mastendisk is actually a set of pro- 
grams thai runs from a main menu. 
There are one- and two-drive catalog- 
ing programs. With the one-drive 
program, you'll have to swap out 
Masierdisk for each data disk you 
want to catalog. During cataloging. 
Masterdisk will warn you of disks 
with duplicate ID codes, allow you 
to change those codes, let you delete 
files or erase entire disLs, and deter- 
mine the load addresses of machine 
language programs. 

Several different printouts of your 



catalog will be available. All but one 
can be sent to the screen if you have 
no printer. You can print all disk IDs 
in use; IDs matched to disk names, 
number of files, and number of 
blocks free; or all file names sorted 
alphabetically. If you're trying to fill 
all your precious disks, you can spe- 
cify a number of bkx'ks and list all 
diskji with more or tewer bkKks fiiee. 

Another utility is Disk Changer, 
which lets you display BlcKk Alloca- 
tion Maps (BAM), look at the con- 
tents of any sector, change disk names 
without copying the disk, and "trace" 
through any file sector-by-sector. 
Best, this utility can restore scratched 
files as long as they are not overwrit- 
ten. This single feature can be worth 
the cost of the program. 

The Machine Language Copier 
utility will move any pure machine 
language program from one disk to 
another- no small feat. It can also 
copy individual program, user, or se- 
quential files that are under 100 
bkx'ks long. Last, the Copy 18 util- 



ity will read the directories of many 
copy- protected disk-s and write unpro- 
tected directories onto blank disks, al- 
lowing you to make any changes you 
want before cataloging them. This 
may be the only metht)d of includ- 
ing your copy-protected programs in 
the catalog file. 

Included with the program disk is 
a reference card for translating hex, 
ASCII, binary, and decimal values. 

Masterdisk does have two short- 
comings. The manual is a minor in- 
convenience. Its 33 pages are jam- 
packed, solid text. This visual ap- 
pearance is reinforced by the con- 
tents, which vary from basic informa- 
tion to broad assumptions that you 
can figure out things like printer 
codes. Of course, it's impossible to 
cover all possibilities for all printers 
in one manual, but beginners will not 
like parts of these instructions. The 
manufacturer does suggest in the 
manual that the befuddled user call 
with any questions. 

The major deficit in this program 



CARTRIDGE-MAKER-64' 

Create your own COMMODQRE-64 Video game and program cartridges! 




Easy Menu-Driven instructions allow you to: 

D Copy your BASIC or ASSEMBLER D Erase and reuse cartridge 

programs to cartndge □ create Autostart cartridges without the 

D Copy from cartridge to cartridge need to be skilled in machine language 

□ Copy your cartridge to diskette or cassette 



CARTRIDGE-MAKER-64 $1 29 00 

CARTRIDGE-ERASER $5900 

CARTRIDGE-64 (1 6K) $25 00 

CARTRIDGE-MAKER SYSTEM $18900 

Includes CARTRIDGE MAKER- W. CARTRIDGE-ERASER, 
and 1 Blank CARTRlDGE-64 (16K eachi 

Purchase of 5 Blank 

CARTRIDGE-64's (16K each) .. $11 5.00 

SHIPPtNGSa 00 (II C D add $2 00 PA residents add 6% sales ta«) 

VlSA-MASTEflCARO-C D -CHECK 

DEALER a DISTRIBUTOR INQUIRIES INVITED 




Alio Available from CPG: 

6502 Single Board Computer S389 00 

5 Volt Switching Power Supply 79 00 

8K EPROM s (2764) 5 50 

16K EPROM 5(27128) $995 

FPHOM sockets 50 

CARTRiDGE-64 Bare Boards 12 00 

CaririOge Cases 3 oo 

Cariridge Board with Case 14 00 

6-p0S(tion DIP Switch , ... 2 00 

ASYNC CARTRIDGE 64 (AClA| 59 95 

ASYNC-WEDGE-64 (Sollwafej 19 95 

ADDASOUND-64 . 29 95 

Real-Time Calendar/Clock 79 95 

Soliware lor COMMODORE-64 Call 01 write tor prices 



Custom Programming Group, Inc. 

47-2A Marchwood Road • Exton, PA 19341 
(215) 363-8840 
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ib also its biggest asset. Cataloging 
is automatic. You need not, in fael, 
can not, enter a program name majiu- 
ally. That name must be on a disk, 
in the directory sectors, and readable 
to MiLsierdisk. (Then; is a way around 
this: build a dummy disk directory 
on a separate disk, then use the stan- 
dard RENAME function through the 
DOS to specify whatever tlleuaine 
you want to give each tile on the 
dummy disk.) You'll sometimes be 
forced through convoluted schemes 
to get copy-protected disk director- 
ies into Mastenlisk\ catalog (but at 
least you can get them cataloged). 

And who cares if a game has three 
or tour separate flies. What i want 
cataloged is the games name. Mas- 
lerdisk would be improved by a rou- 
tine to let the user enter disk IDs and 
file names. Maybe a brief description 
of each file could also be allowed tor 
those of us who creatively name ev- 
erything TEST#. 

Integrated-Sottware Systems, P.O. 
Box 1801, Ames, lA 50010 (phone: 
515-233-2992). -Richard herring 



fOHTH-64 

Abacus Software 
Commodore 64 
Disk; $39.95 

FOKl H-64 is a computer language 
that lies, in terms of both speed and 
complexity, between BASIC and as- 
sembly language. The original ver- 
sion of FORTH was developed over 
a decade ago by Charles Moore. 
Working in an observatory with a 
third-generation computer, the IBM 
1130, Moore developed what he con- 
sidered to be a tburth generation lan- 
guage -Fourth. But wait, the 1130 
would only accept five-character 
names; and so FORI H was born. 

FORfH found its first home in the 
science and industry comnmnities. 
Over the last few years, however, 
more and more personal computer 
owners have discovered this language. 
Actually, to call FORTH a mere lan- 
guage is a misnomer. Leo Brodie, in 
his outstanding introductory book 
Starting hOKlH, describes FORTH 
as "*a high-level language, an assem- 
bly language, an operating system, a 
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set of development tools, and a sott- 
ware design philosophy." 

As a high-level language FORTH- 
64 results in programs that run mueh 
taster and are mueh shorter than pro- 
grams written in BASIC. FORTH 
programs give you, the programmer, 
direct access to all the power of the 
computer. The trade-off is that your 
HORl'H programs will requite more 
organization and be less readable than 
their BASIC counterparts. 

Using as a benchmark the Sieve of 
Eratosthenes, FORTH executed the 
program in under a minute, white 
BASIC reijuired over ten minutes. 
The FORl'H program was about 
three-fourths the size of BASIC'S, and 
took, about three times as long to 
load. 

Compared to assembly language, 
FORTH is much easier to understand 
and debug. However, FORTH is not 
L}uite as fast; it carries more over- 
head. A typical FORTH program will 
run one- to two-thirds slower than a 
pure assembly language program. 

As an operating system. FORTH 
pertbrms all the usual functions. It 
assembles, compiles, and interprets 
code and it handles virtual memory, 
input, and output. FORTH's operat- 
ing system is not a separate program, 
so redundancy and much run-time er- 
ror checking arc done away with. 
This contributes to FORTHs speed. 
Since FORTH-64 includes an assem- 
bler, those portions of your program 
that are time critical can easily be de- 
bugged in the high-level language, 
then recoded in assembler. 

F0R:TH-64 is actually a dictionary 
of defined words, or standard com- 
mands, with which you can easily 
build more commands, in other 
words, FORTH is extensible. Except 
for essential words coded in assem- 
bler, FORTH's words are programm- 
ed in FORTH. The definition of each 
word must fit on one FORI H screen; 
16 lines of 64 characters each. Once 
any word is detlned, it can be exe- 
cuted by just typing its name. 

Writing small blocLs of code like 
this requires you to organize your 
programming, something many of us 
don't do in BASIC. But, FORTH pro- 
gramming is very different from 
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other high-level languages. You will 
find thut. in FORTH, even (low 
(.harts require a noii-lraditional ap- 
proach. 

The must imuiediatc and striking 
ditterence between FORTH-64 and 
other languages is that you must ctxle 
all arithmetic operations in Reverse 
Polish Notation (RPN), or postfix no- 
tation. The equation 12 + (5 * 9) 
would appear as 5 9 * 12 -H. RPN 
is the result of dealing directly with 
the stack: that part of memory used 
by the CPU to store data in a last-in, 
tlrst-out tormat. 

Many FORTH commands look 
like familiar BASIC terms or make 
sense bcxause they are English words. 
You will fuid load. list. it. else, and 
then to be commands similar to 
BASIC'S. Other words, like swap, re- 
peal, loop. copy, and move, will 
tnake sense in the context of 
FORfH's pRjgraJiuiiing envin)nment. 

FOR'rH-64 comes tully equipped 
with sound and graphics commands 
to help you use the features of the 
SID and VIC chips in your C-64. The 
dictionary includes words tor both hi- 
res and lo-res graphics. Changing 
screen colors is as easy as typing 
"BLUE SCREEN BROWN PEN." 
The use of English words, rather than 
POKEing numbers into memory lo- 
cations, is itself enough to convert 
some people from BASIC to FORI H. 

The FORTH Interest Group (FIG) 
has developed a standard called FIG- 
HORIH. Abacus FORTH-64 is 
based on that standard, but includes 
three times as many words in its ba- 
sic vocabulary. Another standard, 
FORTH 79. is completely included 
in FORTH-64, and much of the 
FORIH 83 standard is also included. 

Abacus includes a 73-page manu- 
al to desciibe the features ot FORFH- 
64. This manual will not teach you 
FORFH. Two good book:* on this 
language have been authored by Leo 
Brodie. Sianinyi FORl'H, from Pren- 
tice-Hall, is an introduction to 
FORTH suitable tor either novices 
seeking to learn about computers or 
professionals who have just been in- 
troduced to FORTH. Vxinking 
FORl'H discusses some fundamental 
FORTH concepts, traces the devel- 



opment of a software project, and in- 
cludes interviews with FORTH pro- 
grammers. 

Abacus Software. P.O. Box 72U, 
Gnuid Rapids, Ml 49510 (phone: 616- 
241-5510). -Richard Herring 

SPREADSHEET 

Spinnaker Software 
Commodure 64 
Disk; $49.95 

Spreudsht'i't packs most ot the ex- 
pected capabilities of a high-powered 
"what-ifler" into a program that can 
generate spreadsheets up to 250 rows 
by 100 columns. The optional 80-col- 
umn display requires no hardware 
and is legible on a 1702 monitor, 
though on a TV screen the charac- 
ters are more distinguishable in 40- 
column mode. On top of this, you get 
limited word processing and databa.se 
capability plus a slew of unexpected 
features. The main question to ask is 
whether or not they will lighten your 
work load, the object of Spinnaker's 
line uf Better iibrking M>titwaFe. 



After using the program to set up, 
edit, and experiment with "Shay's 
Pay." a sample spreadsheet recording 
the millions of dollars 1 make review- 
ing software for magazines such as 
Ahoy.'. I was impressed with Spread- 
sheet's comprehensive scope and 
horsepower. Numbers can be display- 
ed in lour ways: integer, decimal, 
floating decimal, and bar graphs 
compt)sed of + or - signs. At your 
command you'll find all the standaixl 
functions and a tew rare ones: 12 
mathematical. 5 range (including 
COU, which counts the number of 
numeric entries in a given range), 9 
logical operators, and 4 trigonomet- 
ric functions for the mad scientists in 
the audience. There are advanced 
functions such as programmable it- 
eration. Auto Lookup, and an "it" op- 
erator that can be emplcyed effective- 
ly in conjunction with AND, OR. and 
NOT when devising formulas. If 
you're like most people, you're prob- 
ably still wondering about the extent 
uf the program's database and word 




On Screen Status Display 



LINt I 

CO). I JUST e IM9T 




A Curior locillofi 

B Scroll Inaiccloi 

C Print taatufaa cuirvntry twlng ul«d 

D Filtfn«mtt o1 teiil 

E PVC*nt«B« ot RAM (m«<nOiy) usM 

F^ Rulflr lalftO i1>fllM0« ltn«} 

G Mom Krdp'jutilhctilan ilia 

H 'Bluch iTi«rK«d- tl»B 

I InMM mod* Umq 

J Characters p«f lr>ch 

K Nu(n[>«t ut xnt Currivnt iont 

L Nam* of tri« cuiiani fgnl 



Overview of FONTMASTER 
word processor features: 

1) Powatlul block inanipulaiion 
commands (Cut, Paste. Wove. Overlay) 

2) User - Ifiendly eflecis include {lonls, 
supei'Bub scripts, underlining, bold lace, 
etc) 

3) Up to eight difleieni ronlt can be used 

simultaneously 

4J Many prinlmg options such as page number- 
<ng, lines, word wrap, right lustKicalion. and 
more 

5) Elgin disk UO commands (Save, Load, Verily, 
Erase, Elc I 
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processing capabilities. 

When you type text into any cell 
in a spreadsheet, that cell is referred 
to as a label and is generally used to 
name rows and columns: "January, 
rent, etc." For brief amounts of text. 
Spreadsheet has a "long label" mode 
in which you can set the maximum 
width of the text (up to 98 charac- 
ters) and start typing. The words ini- 
tially appear in the entry line at the 
top of the screen. When keyed-in text 
reaches the limit, it is automatically 
word-wrapped to the cell below it to 
produce a left-justified column of 
text. This facilitates adding an explan- 
atory paragraph below a spreadsheet 
without much trouble. With the Word 
command, you set the line width in 
the same fashion but can also speci- 
fy right-justification and adjust mar- 
gins on the sides. Standard cover let- 
ters could be saved as separate 
"spreadsheets" to be customized with 
new names and addresses when 
needed. Of course, you may also 
choose to cobble up a quick letter or 
memo in a blank section of the cur- 
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rent sheet. By setting the range ap- 
propriately, you can use partial print- 
ing to obtain hard copy of the letter 
alone. The main benefit is that you 
don't have to quit the spreadsheet and 
load a word processor. It's handy tor 
one- or two-pagers, but not for ex- 
tensive documents. 

There is also potential for build- 
ing databases by filling the rows and 
coluinns of a sheet with lists of in- 
formation instead of formulas to be 
calculated. One column might hold 
names, the next addresses, and so on. 
The ability to search and sort text and 
numbers makes this feasible, but you 
don't get a true global search. You 
must specify in which of four direc- 
tions from the current cell the search 
will be conducted. (And the AND, 
OR, and NOT operators can't be used 
when searching in this manner). Col- 
umns can be sorted alphabetically or 
numerically, from highest to lowest 
or lowest to highest. 

A practical feature called of feet 
loading allows you to load a file into 
a blank sheet at a different position 
1 from its original one. Parts of files 
may be saved and loaded by specify- 
ing the range, so you can use offset 
loading to combine lists, graphs, 
sheets, and text into one document. 
This feat doesn't qualify Spreadsheet 
as genuine integrated software, but it 
may be good enough tor many peo- 
ple. However, count on investing 
plenty of time and paper to master 
the technique: the 146-page manual 
doesn't provide any info on how to 
apply these features, forcing you 
through the rigors or trial and error. 

A more offbeat feature is automa- 
tic prompting, useful in situations 
where someone else will be punching 
numbers into a spreadsheet they 
didn't create. The person just tyf)es 
*•?"' and the cursor skips to the first 
cell that must be filled in. Written by 
the sheet's architect when setting up 
the auto-prompts, a line of text pops 
up in the entry line and tells exactly 
what kind of data is supposed to be 
entered in that cell. After the indi- 
vidual hits return, the cursor moves 
on to the next cell for which an auto- 
prompt has been set up. There are 
plenty of other practical features. 
Spreadsheet supports two drives, can 



send true ASCII, has adjustable baud 
rates for working with RS232C print- 
ers, and furnishes a "draw" feature 
that fills a range of ceils with the 
same character for drawing visually 
pleasing borders and frames. 

The interface is well-designed, for 
you don't have to slog through menus 
or wait for parts of the program to 
load from disk as with Muhiphm. 
Most commands are executed with a 
control key or / combination: contrai- 
f means the next entry is a formula. 
/L means load a document, and so 
on. If you change your mind, you can 
always back out of a command by hit- 
ting f7. Cursor control is superb, per- 
mitting fast movement to any part of 
the sheet or a specific cell. Instead 
of retyping the contents of cells that 
need to be changed, you can use the 
insert and delete keys for editing pur- 
poses and writeover the existing con- 
tents if desired. The most serious 
drawback is that Spreadsheet won't 
let you delete, insert, or move more 
than one row. column, or line at a 
time. Pressing control-r to repeat an 
insert or delete saves some time, but 
it would have been more efficient if 
the program prompted you to state the 
number of lines or rows to be inserted 
or deleted. 

A "configure" program that is run 
prior to the actual program helps you 
get Spreadsheet working with a wide 
range of printers, change display col- 
ors, and set other parameters. Op- 
tions that you might want to alter fre- 
quently are accessible from within 
the spreadsheet. The documentation, 
though complete and well-indexed, 
occasionally breaks down with am- 
biguous phrases that may send you 
to the phone to dial Spinnaker's tech- 
nical support number (which is not 
toll-free). A reference card of com- 
mands and five screens of RAM- 
based online help are also available. 

Best-suited for small businesses 
and families. Spreadsheet is worth in- 
vestigating if you can use one or more 
of its host of unusual features. It's also 
easy enough for a first-timer to learn 
and use the fundamental operations. 

Spinnaker Software, One Kendall 
Square, Cambridge, MA 02139 
(phone: 617-494-1200). 

—Shay Addains 
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1-^^ I n the first column in this series, I observed that 
I there is a one-to-one correlation between assem- 
I biy language and machine language -that for ev- 
1^^ I ery instruction in an assembly language program, 
there's a corresptinding instruction that will mean the 
same thing when the pn)gram has been converted into 
machine language. 

That's the truth, but now that we're further along in 
our exploration of assembly language, I have to admit 
that it isn't the whole truth. Actually, there are many as- 
senibly language mnemonics (three-letter instructions) 
that have more than one equivalent instruction in ma- 
chine language. That means, of course, that there are 
more instructions in CommcKiore 64 machine language 
than in Commodore 64 assembly language. 

To understand why this is true -and what it means to 
the assembly language programmer— it is necessary to 
have an understanding of addressing modes, and how they 
are used in 6502/6510 assembly language. 

If an assembly language program is to work correct- 
ly, every statement it contains must be written in a spe- 
cific format. There are 13 such formats in 6502/6510 as- 
sembly language, called addressing modes. Your compu- 
ter processes each statement it encounters in an assem- 
bly language program in accordance with the address- 
ing mode in which the statement is written. Specifical- 
ly, addressing modes arc used to tell a computer how 
to go about accessing information in its memory, and how 
to go about storing that information back in its memory 
once processing is completed. 

In this column, we'll e.Kamine all 13 of these address- 
ing mcxies. and observe how they are used in 6502/6510 
assembly language. First, though, let's take a look at the 
eight different ways that one mnemonic— ADC — can be 
converted into machine language; in other words, the 
eight addressing modes that can be used with the 
mnemonic ADC: 



Assembly 
Language 
Addressing 
Mode 

Immediate 
Zero Page 
Zero Page.X 
Absolute 
Absolute, 

Indexed.X 
Absolute, 

Indexed.Y 
Indexed, 

Indirect 
Indirea 

Indexed 



Assembly 

Language 
Statement 

ADC #S03 
ADC #503 
ADC S03,X 
ADC S0300 



Machine 

Language 

Equivalent 

69 03 
65 03 
75 03 
6D 00 03 



ADC S0300,X 7D 00 03 

ADC S0300,Y 79 00 03 

ADC (S03,X| 61 03 

ADC (S03),Y 71 03 
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No. of 
Bytes 
Used 

2 
2 

2 
3 

3 

3 

2 

2 
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COMMODORE, PART I 

THE FIRST OF TWO COLUMNS ON 
ASSEMBLY-LANGUAGE ADDRESSING 



THE BIG DIFFERENCE 

You may notice an odd relationship between the as- 
sembly language statements in the second column and 
the machine language equivalents of those statements 
listed in the third column. In Column 2 ail eight address- 
ing modes use the same mnemonic, but each uses a dif- 
ferent operand. In Column 3 the oppt)site is true. In Col- 
umn 3, each instruction is different, but only two oper- 
ands are used: the one-byte operand 03, and the two-byte 
operand 0300 (listed in column three as 00 03 because 
of the peculiar low-byte-first convention commonly used 
in 6502/6510 assembly language). 

This is the most important fact illustrated by the above 
table: in 6502/6510 tmichine language, addressing modes 
are distinguished from each other by differences in their 
op cixies. But in 6510 assembly language, the 13 avail- 
able addressing modes can be identified hy differences 
in their operands. 

Here's a table that illustrates all 13 addressing modes 
in Commodore 64 assembly language: 

THE 6502/6510 CHIP'S 13 ADDRESSING MODES 



Addressing Mode 

1. Implicrt (Implred) 

2. Accumulator 

3. Immediate 

4. Absolute 

5. Zero Page 

6. Relative 

7. Absolute Indexed.X 

8. Absolute Indexed.Y 

9. Zero Page.X 

10. Zero Page,Y 

11. Indexed Indirect 

12. Indirect Indexed 

13. Indirect 



Format 

RTS 

ASL A (or simply ASL) 

IDA #2 

LDA S02A7 

STA SFB 

BCC LABEL 

LDA 502A7,X 

LDA S02A7.Y 

LDA SFB,X 

STX SFB.Y 

LDA (SFD,X) 

LDA (SFD),Y 

JMP 



ADDNRS.SRC REVISITED 

To explain how some of these instructions work. III 
use ADDNRS.SRC, an 8-bit addition routine that you 
may recall from previous columns. Here's a listing of the 
ADDNRS program, typed as it would appear if it were 
created using the Commodore 64 Macro Assembler (If 
you own a different assembler/editor, such as the Merlin 
64 or Panther 64, you should be able to alter the pR^ram 
to meet your assembler's demands without too many prob- 
lems. If you're a Merlin 64 owner, it may also help to 
review last month's column, which explained how to type 
and run a program using Merlin.) 
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THE ADONRS SOURCE PROGRAM 
{Commodore 64 Assembler Version] 

10 ; 

20 ;ADDNRS.SRC (AN 8-BIT ADDITION PROGR 

AM) 

30 

AO 

50 

60 

70 

80 

90 

100 

110 



*=$8000 

ADDNRS CLD ; IMPLIED ADDRESS 
CLC ; IMPLIED ADDRESS 
LDA #2 ; IMMEDIATE ADDRESS 
ADC #2 ; IMMEDIATE ADDRESS 
STA $02A7 ; ABSOLUTE ADDRESS 
RTS ; IMPLIED ADDRESS 



Three addressing nnxies are used in this sample pro- 
gram, and all three are identified in the comments col- 
umn of the listing. Now let's look at each of the address- 
ing modes that are used in the ADDNRS.SRC program, 

IMPLIED (OR IMPLICIT) ADDRESSING 

implied addressing is just what its name-well, im- 
plies. In 6502/6510 assembly language, there are a num- 
ber of mnemonics that never require operands (values 
that tbliow an instruction) because they are complete in- 
structions in themselves. So, when you use the implied 
addressing mode in an assembly language program, all 
you have to type is a three-letter assembly language in- 
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struction; implied addressing does not require (in fact 
does not allow) the use of an operand. 

In the ADDNRS.SRC program, the mnemonics CLD, 
CLC, and RTS are all implied-addressing instructions. 

Op-code mnemonics that can be used in the implicit- 
addressing mode are BRK, CLC, CLD, CLL CLV, DEX, 
DEY, INX, INY, NOP, PHA, PHP, PLA, PLP, RTI, 
RTS, SEC, SED, SEI, TAX, TAY, TSX, TXA, TXS, and 
TYA. 

IMMEDIATE AND ABSOLUTE 
ADDRESSING 

Immediate addressing and absolute addressing are the 
most common forms of addressing in 6502/6510 assem- 
bly language. In the ADDNRS.SRC program, the state- 
ments LDA If! and ADC #2 use immediate addressing. 
And the absolute addressing mode is employed in the 
statement STA $02A7. 

Its easy to tell the difference between immediate and 
absolute addressing, In an immediate-addressing state- 
ment, a "#" sign always appears in front of the operand. 
But there is never such a sign before the operand in a 
statement that uses absolute addressing. In the statement 
STA $02A7, which uses absolute addressing, a dollar sign 
does appear before the operand $02A7. But that means 
that S02A7 is a hexadecimal number; it has nothing to 
do with the addressing mode of the statement $02A7. 

Here's the most important difference between inimedi- 
ate addressing and absolute addressing: in the immedi- 
ate addressing mode, the operand that follows the 
mnemonic is always interpreted as a literal mmiber. But 
in the absolute address, the operand is always interpreted 
as the address of a memory location. So, in the 
ADDNRS.SRC program, LDA #2 means "load the ac- 
cumulator with the literal number 2" and ADC #2 means 
"add the literal number 2 to the content of the accumu- 
lator, along with a carry." And the statement STA $02 A7 
means "store the content of the accumulator in memory 
register S02A7." 

Instructions that can be used in the immediate address 
mode are ADC, AND, CMP, CPX. CPY, EOR, LDA, 
LDX, LDY, ORA and SBC. 

Mnemonics that can be used in the absolute address- 
ing mode are ADC. AND, ASL, BIT, CMP CPX, CPY, 
DEC, EOR, INC, JMP, JSR, LDA, LDX, LDY, LSR, 
ORA, ROL, ROR, SBC, STA, STX, and STY. 

ZERO-PAGE ADDRESSING 

Zero-page addressing is used in exactly the same way 
as absolute addressing. The only difference is that the 
operand used in a zero-page address always comes from 
a block of RAM known -logically enough -as Page Zero. 

In the Commodore 64, the addresses of the memory 
locations on Page Zero range from $00 to to $FF. That 
means that any address on Page Zero can be expressed 
as a single byte, rather than in the two-byte form needed 
to express addresses that range from $0I()0 to $FFFF (ad- 
dresses that do not lie on Page Zero). 

Since Zero- Page addresses can be written so compact- 
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ly, they can save both memory and processing time when 
used in assembly language programs. In fact, as you will 
see shortly, some forms of 6502/6510 addressing require 
that their operands be Zero-Page addresses. 

It's easy to use Zero-Page addressing in an assembly 
language program. If you want to use a zero-page ad- 
dress as an operand, you just write it as a one-byte val- 
ue instead of as a two-byte value. Then, when your as- 
sembler converts the program into machine language, it 
will automatically use the zero-page addressing mode. 

Here's how the ADDNRS.SRC program would look 
if Zero-Page addressing were used instead of absolute 
addressing in Line 100: 

THE ADDNRS SOURCE PROGRAM 
(With Zero-Page Addressing In Line 100) 

10 ; 

20 ; ADDNRS. SRC (AN 8-BIT ADDITION PROGR 

AM) 

30 ; 

40 *=$8000 

50 ; 

60 ADDNRS CLD ; IMPLIED ADDRESS 

70 CLC ; IMPLIED ADDRESS 

80 LDA #2 ; IMMEDIATE ADDRESS 

90 ADC #2 ; IMMEDIATE ADDRESS 

100 STA $FB ; ZERO-PAGE ADDRESS 

110 RTS ; IMPLIED ADDRESS 
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Since so many advantages are connected with the 256 
addresses on Page Zero, it won't surprise you to learn 
that Page Zero is the high-rent district in your C-64's 
RAM. It's such a valuable piece of real estate, in fact, 
that the people who designed your computer claimed most 
of Page Zero for themselves. Unfortunately, almost all 
of the RAM space on Page Zero is consumed by your 
computer's operating system, its built-in BASIC interpre- 
ter, and other important utilities, and not much space has 
been left for user-written programs. 

Later on in this series -in a column dedicated specifi- 
cally to memory management -I'll discuss the memory 
space available on Page Zero in more detail. For now, 
the most important fact to remember about Page Zero 
is that it's used in a special form of addressing known 
as Zero-Page addressing. 

Instructions that can be used with zero-page address- 
ing arc ADC, AND, ASL. BIT, CMR CPX, CPY, DEC, 
EOR, INC, LDA, LDX, LDY. LSR. ORA. ROL, ROR, 
SBC. STA, STX, and STY. 

ACCUMULATOR ADDRESSING 

Accumulator Addressing is used in assembly language 
statements that perform functions on values stored in the 
6510 processor's accumulator. Some assemblers require 
that the operand "A" be used in statements which em- 
ploy accumulator addressing. An accumulator-address- 
ing statement that uses the operand "A" looks like this: 

ASL A 

Other assemblers, such as the Merlin 64, will accept 
accumulator-addressing statements which do not use an 
operand. An accumulator-addressing statement written 
without an *A" operand looks like this: 

ASL 

When your computer encounters the instruction ASL 
in a program, the instruction will shift each bit in the 
accumulator one bit space to the left, with the leftmost 
bit (Bit 7) dropping into the carry bit of the processor 
status (P) register. 

Other instructions that can be used in the Accumula- 
tor Addressing mode are LSR, ROL, and ROR. 

RELATIVE ADDRESSING 

Relative addressing is an address mode used for a tech- 
nique called conditional branching -n method for in- 
structing a program to jump to a given routine under cer- 
tain conditions. In assembly language programming, con- 
ditional-branching instructions perform a function simi- 
lar to that of ON. ..GOTO instructions in BASIC. 

There are eight conditional branching instructions— or 
relative-address mnemonics— in 6502/6510 assembly lan- 
guage. Each begins with "B", which stands for "branch to." 

Examples of the conditional-branching instructions that 
use relative addressing are BBC (branch to a specified 
address if the carry flag is clear), BCS (branch to a spe- 



cificd address if the carry flag is set), BEQ (branch to 
a specified address if the result of an operation is equal 
to zero), and BNE (branch to a specified address if the 
result of an operation is not equal to zero). 

All eight instmctions will he described later in this sc- 
ries, in a column devoted to looping and branching. 

WHAT COMPARISON 
INSTRUCTIONS DO 

The eight comparison mnemonics are often used with 
three other instructions called comparison instntaions. 
Typically, a comparison instruction is used to compare 
two values with each other, and the conditional branch 
instnrction is then used to detennine what should be done 
if the comparison turns out in a certain way. 

The three comparison instructions are: CMP. which 
means "compare the number in the accumulator with. . ."; 
CPX, which means "compare the value in the X register 
with..." and CPY, which means "compare the value in 
the Y register with..." 

Conditional branching instructions can al.so follow 
arithmetic or logical operations, and various kinds of test- 
ing of bits and bytes. 

Usually, a branch instruction causes a program to 
branch off to a specified address if certain conditions are 
met or not met. A branch might be made, for example, 
if one number is lar;ger than another, if the two numbers 
are equal, or if a certain operation results in a positive, 
negative, or zero value. 

Here's an example of an assembly language routine that 
uses conditional branching: 

AN ADDITION PROGRAM WITH ERROR-CHECKING 



10 ; 






20 ; 


ADD8BIT 


30 ■ 






40 


*=$8000 


50 ; 






60 ADD8BIT LDA #0 


70 


STA $02AA 


80 ; 






90 


CLD 




100 


CLC 




110 


• 




120 


LDA 


$02A7 


130 


ADC 


$02A8 


140 


BCS 


ERROR 


150 


STA 


$02A9 


160 


RTS 




170 


ERROR LDA #1 


180 


STA 


$02AA 


190 


RTS 





The above program is an 8-bit addition routine with 
a simple error-checking utility built in. It adds two 8-bit 
values, using absolute addressing. If this calculation re- 
sults in a 16-bit value (a number larger than 255). there 
will be an overflow error in addition, and the carry bit 



of the processor status register will be set. 

Ff the cany bit is not set. the sum of the values in $02A7 
and S02A8 will be stored in $02A9. If the carry bit is 
set, however, this condition will be delected in Line 140. 
and the program will branch to the line labeled ERROR- 
Line 170. 

In this .sample program, an error will cause the val- 
ues in Addresses $02A7 and S02A8 not to be added. In- 
stead, a flag -the number I -will be loaded into Mem- 
ory Register $02AA, and the routine will end. 

ABSOLUTE INDEXED ADDRESSING 

An indexed address, like a relative address, is calcu- 
lated by using an offset. But in an indexed address, the 
offset is determined by the current content of the 65l0*s 
X register or Y register. 

A statement containing an indexed address can be writ- 
ten using either of these formats; 

LDA $02A7,X 



or 



LDA $02A7,Y 

HOW ABSOLUTE INDEXED 
ADDRESSING WORKS 

When indexed addressing is used in an assembly lan- 
guage statement, the contents of either the X register or 
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the Y register (depending upon which index register is 
being used) arc added to the address given in the instruc- 
tion to determine the final address. 

Here's an example of a routine that makes use of in- 
dexed addressing. The routine is designed lo move byte 
by byte through a string of ASCII characters, storing the 
string in a text buffer. When the string has been stored 
in the buffer, the routine will cnd. 

A DATA-MOVING PROGRAM 
(Presented as an Example of Indexed Addressing) 

10 ; 

20 ;DATMnV 

30 J 

40 TXTBUF=$02A7 

50 EOL=$OD 

70 ; 

80 *=$8000 

90 ; 

95 JMP DATMOV 

96 ; 

100 TEXT .BYTE $54,$41,$4B,$45,$20,$4D, 

$45, $20 

110 .BYTE $54,$4F,$20,$59,$4F,$55,$52, 

20 

120 .BYTE $4C, $45, $41, $44, $45. $52, $21, 
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$0D 

130 ; 

140 DATMOV 

150 ; 

160 LDX #0 

170 LOOP LDA TEXT.X 

180 STA TXTBUF.X 

190 CMP #EOL 

200 BEQ FINI 

210 INX 

220 .JMP LOOP 

230 PINT RTS 

250 .END 

TESTING FOR A CARRIAGE RETURN 

When the pmgram begins, we know thai the string ends 
with a carriage return (ASCII SOD), as strings often do 
in Commodore programs. 

As the program proceeds through the string, it tests 
each character to see whether it is a carriage return. If 
it isn'l. the program moves on to the next character. If 
it is. that means that there are no more characters in the 
string, and the routine ends. 

ZERO-PAGE,X ADDRESSING 

Zero-Page, X addressing is used just like Absolute In- 
dexed. X addressing. However, the address used in the 
Zero-Page, X addressing mode must (logically enough) 
be located on Page Zero. Instructions that can be used 
in the Zero-Page. X addressing mode are ADC. AND, 
ASL. CMP. DRC. FOR. INC. IDA. LDY. l.SR. ORA. 
ROl . ROR. SBC, STA, and STY. 

ZERO-PAGE,Y ADDRESSING 

Zcro-Page.Y addressing works just like Zero-Page.X 
addressing, but can be used with only two mnemonics: 
LDX and STX. If not for the Zero- Page .Y addressing 
mode, it wouldn't be p<issible to use absolute indexed ad- 
dressing with instnictions LDX and STX- and that's the 
only reason this addressing mode exists at all. 

INDIRECT ADDRESSING 

There are two subcategories of indexed addressing: in- 
dexed indirect addressing, and indirect indexed address- 
ing. Both are used primarily to look up data stored in 
tables. 

If you think the names of the two addressing modes 
are confiising, you're not the first one with thai complaint. 
I newr could keep them sorted out myself until I dreamed 
up a little memory trick to help eliminate the confusion. 

Here's the trick: Indexed imiirect ciclclressing- which 
has an "X" in the first word of its name -is an address- 
ing mode that makes use of the 6-'>i0 chip's X register. 

liuiirecl indexed addressing - whkh doesn't have an "X' 
in the first word of its name -uses the 6.'il0"s Y register. 

In next month's column, well look at each of your 
Conimixiore's two indirect addressing modes- beginning 
with indexed indirecl addressinf>. D 
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r^^pl "m pmbahly noi the only person in the world with 
la complete collection of Ahoy! maga?ines. hut I 
I may be the only one who has given them the in- 
[■^^ ) depth attention of a writer searching for an article 
idea. To sell a piece to a magazine that prides itself on 
helping Commodore users get the most from their com- 
puters, you'd better have a really original idea. 1 thought 
I'd never come up with something that hadn't been done 
before. On the verge of despair and contemplating a two 
hour ice cream hinge, I called the editor with one last 
desperate query. "No, I've already got Morton working 
on that" (That Kevelson. he gets all the good assignmcnt.s. 
I mentally complain.) "But we've been thinking about 
starting a beginner's column. Would you be interested?" 
Interested? Me? I was delighted Being a self-appointed 
apostle of small computers. I always look forward to get- 
ting novices really involved with their computers. Sure, 
it's nice to buy a go(xl software package and learn how 
to run it. But as far as I'm concerned, you aren't compu- 
ter literate until you can use some computer language 
(BA.SIC. COMAL. PASCAL, or something else) to print 
a message on the screen, read data off the keyboard, and 
then do something with the information. Doesn't sound 
too tough, does it? You might be surprised at how many 
Apple Macintosh owners will never learn to do it. 

DcKS that mean this column is going to be dcvoletl only 
to teaching computer language? No! We will touch on 
several different languages, incUtding BASIC. But, I want 
this column to help you derive the maximum benefit from 
the time you spend with your computer. By doing things 
together, we'll get to know the Commodore 64. Expect 
me to refer you to your user manual occasionally, because 
I don't intend to duplicate material found there. 

I also won't recommend trying to program everything 
yourself. Why duplicate the efforts of talented and in- 
genious individuals who are trying to make a living at 
something they do well? If you are like me and value 
your time, you won't want to waste weeks programming 
your own word pnx-essor. spreadsheet, or telecommuni- 



cations program. I consider a week of my time to be 
worth at least $100, so if I spend less than that for a good 
program I feel it's money well spent. Not all programs 
are worth the price on their label, and where possible 
I'll try to steer you away from "rotten eggs" and toward 
■golden eggs." So, sometimes this column will help you 
find good software values. 

One thing new owners should plan at the outset is a 
computer budget. Before too long, you'll be looking at 
hordes of software and peripherals you're sure to want. 
I highly recommend taking a look at your bankbook first. 
Figure out how much you can afford to spend and then 
stay within your limit. 

It's not a bad idea for all the family members to get 
in on the discussion of what you really need. You might 
decide first what peripherals you want to buy and the 
order in which to get them. If you have only a C-64, 
there are usually four peripherals that make a good sys- 
tem: a storage device (usually a cassette player or disk 
drive), a printer, a modem, and an external monitor. The 
order of purchase varies with the users. 

For instance, a family in which students use the Com- 
mfxiorc for homework assignments and the parents do 
a lot of word processing might buy a cassette recorder 
(about half the cost of a disk drive) and a printer first. 
Later they might want to upgrade to a disk drive, and 
then finally buy a monitor (so they can iieclaim the TV), 

Another family whose members are more comfortable 
with a typewriter might buy a disk drive and modem first. 
If one of the parents wants to use the computer to track 
the stock market, this is an ideal choice. Research using 
online databases is much faster when the information can 
be stored on disk. The computer could still be used to 
research school reports (via online encyclopedias and 
news services) and then typed on the typewriter A print- 
er and monitor might be purchased later. 

Which penphcrats and software to buy should be a fem- 
ily shared decision, if all the members will use the com- 
puter Plan to spend money on disks or cassettes, paper, 
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software, magazines, and other small items as well. 

To be brutally honest, if all you have is the computer 
(and a storage device) and you don't plan to put any more 
money into it, you might as well stash it in the closet 
or sell it, because you aren't likely to get much use out 
of it. Without magazines to get programs from, media 
to store programs on, or mass market software to run, 
a computer is a useless device. And all these things cost 
money. {Well, we'll pretend "theft" doesn't exist.) 

After money, the biggest stumbling blcxrk for most new 
users is programming. Programming isn't as difficult as 
many people think it is. For small or very user specific 
applications, it is probably the be.st way to go. 

As a learning process, I would highly recommend en- 
tering an Ahoy! program that you would really like to 
use. As you key it in. analyzing what each line is doing 
as you type it, you'll begin to sense patterns. Most pro- 
grams written in BASIC and published in Ahoy! are ac- 
companied by explanations of how they work and what 
each routine does. In fact. Ahoy! may be one of the best 
learning sources you'll find. 

Motivation is the most important factor in learning 
BASIC. Pick something you really want to do; play a 



game, edit fonts, create a new character set, convert num- 
bers from hexadecimal to octal or decimal. Whatever! 
Then find a program in a book or magazine that does 
what you want. Enter it in and debug it. By the time you 
get that program working properly, you should have a 
much better idea of how to do programming. 

One additional piece of advice here. Get your family 
involved. If you don't have a family, get one! Seriously, 
working together is a big asset to learning. Entering a 
program without help means looking back and forth be- 
tween listing and screen. This can bring on a mean head- 
ache by the time you're through. If one person reads the 
program aloud while the other types, things go much fest- 
er and more is retained. Establishing a pattern of work- 
ing together and sharing the computer will also help you 
avoid family squabbles and "computer widowhood." 

Reading a book on BASIC isn't a bad way to start. Youll 
have a bit of background to help you understand what 
a program is doing. But until you actually enter a pro- 
gram and debug it, you probably won't know what all 
the hoopla is about. 

Looking through the back issues, I noticed that the 
Riipert Report column has covered just about every as- 



Figure 1: 

Topics Covered in The Rupert Report 

and Creating Your Own Games 



Figure 2: 
Some Commodore 64 Typing Programs 





The Rupert Report 


Creating Your Own Games 


Jan. '84 


Cursor Manipulation 


- 


Feb. 84 


String Variables 


— 


Mar. '84 


Computational Logic 


- 


Apr. '84 


Computational 

Inaccuracies 


_ 


May '84 


Arrays 


- 


June '84 


Inputting data: Get. 
Let, Input 


From the Player to the 
Screen 


July '84 


Sequential Files 


Screen Display 


Aug. '84 


Number Crunctiing 


Word Games 


Sep. '84 


Video RAM 


Text Adventures 


Oct. '84 


Programming the 

Joystick 


Text Adventures 


Nov. '84 


Two-Oimensional 
Arrays 


- 


Dec. '84 


BASIC Program 
Structure 


Fast Graphics with 
Custom Characters 


Jan. '85 


Sprite Basics 


Flipping Character Sets 


Feb. '85 


Sophisticated Sprites 


How Games Play 


Mar. '85 


Disk Operating System 


Creating a Gameboard 
Larger than the Screen 


Apr. '85 


Getting into the Kernal 


Joystick Programming 


May '85 


Assembly Routines in 
BASIC 


Moving Through Color 
Memory 


June '85 


Bit Map Graphics 


Automatic Note Entry 


July '85 


Speeding Pixels 


Three-Part Harmonies 


Aug. '85 


Real-World Simulations 


Sound Effects 



New Improved Mastertype 
Ttie Scarborough System 
25 N. Broadway 
Tarrytown, NY 10591 
Game tutor — prevent space 
ships from shooting you out of 
the sky by typing correct letters, 
etc. Newer version contains both 
QWERTY and DVORAK style 
keyboards. 

Wiztype 
Sierra On-Line 
Sierra On-Line Bulldlrtg 
Coarsegoid, CA 93614 

Using the Wizard of Id cartoon 
characters, this program features 
6 modes and 20 levels of difiicul- 
ty. Sprinkled with cartoons, pro- 
gress testing is done by playing 
a game. You can design your 
own tests. 

Type Right 
Commodore 
1200 Wilson Drive 
West Chester, PA 19380 

Features 17 lessons and 4 games. 

MIcroType, the Wonderful 

World of Paws 
EduSystems, Inc. 
South-Western Publishing 
5101 Madison Road 
Cincinnati, OH 45227 
Tutor program aimed at children, 
featuring 18 short lessons and a 
cat that does the teaching. 



Keyboard Kadet 

Mindscape 

3444 Dundee Road 

Northbrook, IL 60062 

Similar to a standard typing 
course with onscreen illustrations 
of hand positions, it also has a 
shootfem-up game built in. Fea- 
tures QWERTY and DVORAK 
keyboards. 

9 to 5 Typirtg 

Epyx 

1043 Kiel Court 

Sunnyvale, CA 94089 

Game tutor— game sequences 
from movie 9 fo 5 test your pro- 
gress. Multiple levels. 

Keys to Typing 

Batteries Included 

186 Queen St. West 

Toronto, Ontario 

Canada M5V 1Z1 

Utilizes .traditional classroom 

techniques. 

Type Attack 
Sirlus Software 
10364 Rockenham Drive 
Sacramento, CA 95827 
Shoot-em-up type game. 

Typing Tutor— Word Invaders 

Academy Software 

P.O. Box 6277 

San Rafael, CA 94912 

Similar to Mastertype; Space In- 
vaders with words. 
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PSA 




MSO 
SO-1 


Indus 
GT 


1541 


IM1 DOS 
Cofnpatibte 


YES 


YES 


YES 


YES 


Runs all Copy 
Protecied Sottwaic 


YES 


YES 


NO 


YES 


Rxmal 

Tme 


16 sec. 


90 sec 


18 sec. 


18 sec 


Save 


YES 


NO 


YES 


NO 


Data Error 
Dat8Ction£ Corrgclon 


YES 


NO 


NO 


NO 


SwHchat* 
D»tct« 


YES 


NO 


NO 


YES 


RbM 

Bunnn 


YES 


NO 


NO 


NO 


Fast Load i 
Fast Copy SofDware 


YES 


NO 


NO 


YES 


PfWE- 


239.99 


229.95 


299.95 


299.95 



•Based on Manufacturers List Prices as of April 1 . 1 985. 
Dealers may sell (or less than suggested list price. 



Others may talk, but no one can deliver the features, 
^e performance or the compatibility of our remarkable 
'S-^ Disk Drive. Go ahead. Make us prove it! Bring us your 
)ughest test, your trickiest problem - if it works on the 1541 
will work on the powerful CS-l But you be the judge . . . 

VE'REBEHER. BELIEVE IT! 

The CS-1 is not only compatible, it goes one step further, 
comes with its own proprietary operating system called 
J-DOS™, which doesn't have the bugs and quirks that exist in the 
541 DOS. Now, the SAVE function works like it's supposed to. 
low, you can reduce read errors with a built-in automatic DATA 
RROR CORRECTION capability . , . and much more! 

\LL THIS, PLUS AN ADDED BONUS! 

Buy a CS-1, and you'll receive the two most popular computer utilities . , , absolutely FREE. 
-ley include COPY-Q™, the high-speed, single or dual drive copy program that gives you quick and 
osy back-ups. And Q-LOAD'", the program that speeds up the loading time on most programs, 
lot's almost $100,00 worth of powerful software FREE with your new CS-1 Disk Drive! 

)0 GO AHEAD. PUT US TO THE TEST. 

Visit your local computer store today and test drive the new CS-1 . You'll like what you see . . , 
)nd Seeing is Believing. 
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pect of BASIC programming imaginable. Frankly, I don't 
see what else Dale Rupert can find to cover, but I have 
no doubt he'll come up with something. 

In his column on Creating Your Own Games, Orson 
Scott Card has also given many illuminating examples 
of how to write a good program. In addition to explaining 
how to create your own routines, he has included pro- 
gram listings for games that you can modify to suit your- 
self. In some cases, he even tells how to make the chang- 
es. (A listing of topics Dale and Orson have covered 
through August 1985 is in Figure 1.) 

For those who haven't got a collection of back issues, 
I recommend making the investment. There's a lot of good 
material, including a text editor, disk operating system, 
sprite manipulator, copy program for sequential and ma- 
chine language files, a two column directory lister, font 
editor, and several BASIC programming utilities includ- 
ing an auto line number function, cross references and 
renumber program. 

One very basic skill makes using a computer much 
easier; touch typing. Four years ago, I used the hunt and 
peck method. As with many of you, that short personal 
typing course back in high schcml taught me what fin- 
gers go where, but that was about all. Practice makes 
proficiency. I now type along at about forty \TOrds a min- 
ute. Not terribly fast, but 1 can almost keep up with my 
thoughts. 

Any go(xl typing tutorial programs will help you im- 
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prove your typing speed. This will make working on the 
C-64 much more ftin. Once you no longer have to di- 
rect each finger, things will seem to go much faster. (See 
Figure 2 for a list of some programs currently available.) 

Anyone reading this article already has the most im- 
portant skill needed to learn to use a computer. Reading! 
You'd be surprised how many novice computerists be- 
lieve they have to pay fancy prices for a high school or 
college course to teach them to use a computer. Nothing 
could be further from the truth. I'm living proof. I have 
never taken a course in using a computer, yet 1 am ac- 
knowledged by more than a few people as being a relative 
expert on the subject. 

How? Books! Magazines! User's manuals! and a lot 
of time spent in front of a computer screen. But it all 
starts with reading. There are many books aimed specifi- 
cally at Commodore users. Books on BASIC, machine, 
assembly, and all kinds of other programming languag- 
es can help you learn much about the internal workings 
of your computer. The be.st place to start is the Program- 
mer's Reference Guide to the Commodore 64. h will def- 
initely be the most useful S20 add-on you can buy for 
the C-64, if you decide to start doing programming. 

Two magazines that I can recommend are fnfo-64 and 
Transactor. The latter is a Canadian publication that runs 
a lot of heavy programming material. Info-64 is a more 
general magazine featuring software and hardware reviews, 
new product announcements, and tutorial pieces. (See 
end of column for subscription information.) Needless 
to say, if you don't have a subscription to Ahoy!, you're 
missing the boat. (Pun intended; if you mis.sed it send 
me a self-addressed stamped envelope for an explanation 
or just fake it and laugh hysterically.) 

It doesn't hurt to have someone to talk to when you're 
really stumped, and if you don't mind waiting a bit for 
an answer, you could ask me via a letter to Ahoy! If you 
don't have the time to wait, you should check out your 
local user group. In almost every city in the country, there 
is at least one computer user group. Frequently there's 
even a Commodore group. Lists of local user groups can 
be found periodically in magazines like Ahoy! and month- 
ly in Computer Shopper. A member may have just the 
answer you're looking for. 

You may have to tolerate a few software pirates accost- 
ing you with offers to "trade" programs, but once you 
tell them you haven't got anything they don't already have, 
they II leave you alone. Many user groups also have public 
domain programs available for next to nothing. 

So, you can see that starting to use a computer doesn't 
have to be a totally overwhelming experience. If you take 
it slow and watch the road ahead, you'll get there in fine 
shape. Just don't try to go too far in one day. and watch 
the speed limit signs. D 

!nfo-64 

$14.00 per year (6 issues) 

Info Publications 

Box 2.^00 

Iowa City. lA 52244 



Transactor 

$15.00 per year (6 issues) 

Transactor 

277 Lindwood Avenue 

Buffalo, NY 14209-9990 
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What Can You Really Do with Your Modent? 

By Sheldon Leemon 



If ycHi aren't quite sure what computer telecommun- 
ications is ab<iiit. blame CommtxJore. After all. 
they joined in the wave of telecomputing hype by 
advertising that using their computers as inexpen- 
sive terminals you could do your homework, your shop- 
ping, your banking, your financial planning, send elec- 
tronical mail, and on and on. With all the publicity sur- 
rounding this fast-growing branch of personal comput- 
ing, it's no wonder some people are confused. Is tele- 
computing the furtive teenage hacker, spending his bleary- 
eyed night.s trying to break into computer banks full of 
sensitive information? Is it the all-purpose store, where 
you can shop without ever leaving your easy chair? Is 
it an instantaneous mail service that lets you stop play- 
ing "telephone tag" and get down to business? Or per- 
haps a personalized news clipping service that automa- 
tically directs stories of interest to your attention? Or a 
window on all the information stored in the vast libraries 
of the world? 

Interestingly enough, most of the hype surrounding 
computer communications fails to prominently mention 
its most common application. What computer users pres- 
ently spend most of their mtxiem time doing is communi- 
cating with other computer users. They do this in a num- 
ber of ways. First, there are local bulletin b<iard servic- 
es (BBS's). These services are prm'ided, usually for free, 
either by groups or 1^ fanatic hobbyists who are willing 
to dedicate a whole computer system and phone line to 
the fulltime furtherance of their pastime. One by one, 
users of these boards call in to read and leave messages, 
much like a giant version of the corkboard at the drug- 
store or supermarket. But here, users can often find the 
solution to a puz/ling hardwai^e or software problem. 
They can also transmit and receive public-domain .soft- 
ware via the BB.S. The latest in news and software is the 
essence of the BBS's appeal. 

On a larger and more commercial scale are the various 
subscription information utilities. Services like Compu- 
Serve, the Source, and Delphi provide for a fee many 
of the same functions as the local boards, but on a na- 
tionwide basis. By providing local access numbers, these 
services enable users all over the country to dial into a 
central database for the price of a Iwal phone call. Here 
you can ftnd hundreds of messages, and hundreds of pro- 
grams as well, with new additions appearing each day. 
Because these information services are run on big main- 
frame computers, they can handle lots of users at once. 
This means, atnong other things, that they can provide 
a conferencing facility. Such a facility allows a number 



of users to type messages to one another all at the same 
lime, with everything that one user types appearing on 
the screens of ail the others simultaneously. This enables 
nationwide "meetings," featuring guest speakers, or on 
the rowdier, less formal side. "CB simulators." 

The user-to-user exchange of ideas and of software 
makes up the great bulk of the telecomputing done to- 
day. By itself, such activity provides ample incentive to 
buy a mixlem and get online. In fact, surveys show that 
computer owners who do get involved with telecomput- 
ing arc among the most satisfied with personal comput- 
ing. But what about all those other online activities that 
we've been promised? Let's take a brief lo<ik at some of 
the available choices. 

INFORMATION SERVICES 

The promise of up-to-the-minute information accounts 
for much of the excitement associated with online ser- 
vices. The problems so far are ease of use and cost. For 
example, many of the big services such as CompuServe 
and the Source offer news from wire services like UPI 
and AP. A common way of pre.senting this news is to 
serve it up on menus, which give the reader a choice 
between: 

(1) War rages on between Iran and Iraq 

(2) Progress stalled in nuclear disarmament talks 

(3) Situation tense in Central America 

(4) Detroit Tigers win 20th .straight game 
Obviously, only so many news stories can be present- 
ed in this format. By the time you .scroll thn>ugh the menu 
pages, pick a stor>'. and have it transmitted to your com- 
puter, you have expended quite a bit of time, effort, and 
money, and gained linle more information than yini would 
have by tuning into your IcKal all-news radio station on 
the half hour. 

The developing trend is to add to the value of these 
news services by offering something that a newspaper 
or newscast can't provide. On the Source, for exainple, 
it rs possible to check for all UPI or AP national news 
stories containing the words "Commodore" and "compu- 
ter" The Executive Information Service on CompuServe 
offers a custom "clipping service," in which the user reg- 
isters the topics in which he is interested, and the ser- 
vice automatically routes such stories into his file-box. 
Another way the information services are beginning to 
provide useful news services is by offering specialized 
news not found elsewhere. For example. CompuServe's 
Oti-Une Tixlay publication offers daily news on devel- 
opments in the computer and videotex industries. 
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Of course, news forms just a small part of the infor- 
mation available online. Stock quotations are an exam- 
ple that is commonly cited. While it is true that you can 
get current information on stock prices online, unless you 
do a great deal of trading you probably are just as well 
off calling your broker for a quote. In general, online 
financial information tends to be costlier than other ser- 
vices. Here again, added services make the difference. 
The Source has instituted a new program in association 
with Spear Securities which not only lets you get quotes, 
but actually trade stocks online. It will also automati- 
cally track the value of your portfolio. The Dow Jones 
News Service offers software that performs sophistica- 
ted stock analysis using figures that are downloaded from 
their service to your computer automatically, but such 
software is geared mainly toward the IBM PC. and none 
is available for Commodore products. Besides, it is gen- 
erally much more expensive to download such data than 
to acquire it offline from companies such as Value Line, 
which furnishes the information on disk. 

Another frequently touted category of information avail- 
able online is airline schedules. The Official Airline 
Guide offers complete scheduling and fare information, 
and. unhke some proprietary systems used by travel agents, 
it doesn't "slant" listings towards one particular airline, 
and so allows the user to find the lowest available fare. 
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While the savings could be sukstantial if you discover 
a little-known discount fare, the service itself is not cheap, 
and at any rate is not one that most people would have 
occasion to use very often. Recently. CompuServe has 
added a service which allows you to make reservations 
directly while online. This enhances the value of the 
schedule and fare information, since it removes the need 
to log off and call an agent for reservations. Still, a sys- 
tem where you make the arrangements yourself and pay 
(by the minute) for the privilege of doing so is hardly 
a match for the services of a competent travel agent. 
One final area of information services that we will look 
at is the online encyclopedia. Many services offer Gro- 
lier's Academic American Encyclopedia online, in vari- 
ous formats. Some versions allow you to search only for 
titles of articles, while others allow you to actually search 
for key phrases within articles, and references to other 
articles. The latter versions can be even more useful than 
the print version of the encyclopedia. Unfortunately, one 
encyclopedia is often not enough. When the user can 
choose between many such references online, the service 
will be much more useful. 

TRANSACTING BUSINESS ONLINE 

In this category are services such as online shopping, 
travel, and stock brokerage. While the potential for such 
services is great, they are still for the most part in their 
infancy. A good example is online banking. Many of the 
large national banks like the Bank of America have started 
intensive pilot programs for online banking, allowing us- 
ers to check their bank balances, make automatic trans- 
fers from their checking account to pay their Visa bills 
and charge accounts at large chain stores like Sears and 
make periodic payments (such as mortgage and car) auto- 
matically every month. Still, such programs really don't 
have enough features to offer yet to offset the service 
charge, which usually runs in the neighborhood of ten 
dollars a month. While it can replace much of the check- 
writing that an individual does, most people don't write 
all that many checks. And it cannot help at all with the 
kinds of cash transactions that most people conduct at 
banks. In the future, perhaps the banks will offer addi- 
tional services, such as tracking all of your income and 
expenditures automatically in the same way that person- 
al finance software does. As for now, however, their on- 
line services are of limited interest. 

Much the same can be said of online shopping. Al- 
most every major service offers some form of online 
shopping, and the variety of goods and services avail- 
able online is staggering. Nonetheless, the promised con- 
venience just is not there. Most systems are fairly clumsy 
to use, and offer no greater discounts than can be gotten 
either through local discount houses or mail-order houses 
with WATS lines. While such systems could be expected 
to attract the .same sort of shoppers who buy through cat- 
alogs, here the catalog has no pictures, and you pay to 
read it. So except for real bargain hunters, people who 
live far from heavily populated areas, or shoppers look- 
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ing for rare items that are difficult to locate, these ser- 
vices are of limited usefulness. 

ENTERTAINMENT 

On most systems, that translates out to games. The ma- 
jor general-inteiiest information services all offer the tra- 
ditional computer games like chess. Hunt the Witmpus. 
Ativenttire, etc. But most Commodore users will find 
much better games available at their local software stores 
for a lot less money. The one area in which these ser- 
vices can offer something that stand-alone software cant 
is in multiplayer games, in which many users participate 
at once. The only information service which really takes 
advantage of this facet of c<imputcr entertainment is Com- 
puServe, which offers multiplayer space-war and fantasy 
games. These games are among the system's most popular 
features. 

Does all of this mean that telecomputing is just a worth- 
less scam? Of course not. While it may not be the ulti- 
mate activity it is sometimes made out to be, it is still 
one of the fastest growing and most fascinating aspects 
of personal computing. The real message that 1 hope to 
convey is that though there are a number of different as- 



pects to telecomputing, not every one is right for every- 
btxly. The new user should not feel compelled to try ev- 
ery service offered all at once, and then become frus- 
trated because it hasn't whitened his teeth or improved 
his love life. If you are a beginner, you will find that the 
local bulletin board or special interest group on Com- 
puServe or Delphi will provide lots of exciting informa- 
tion and (almost) free software. As your experience in 
telecomputing expands, and as the various services ma- 
ture, you will surely find other areas that will be of in- 
terest to you, and you will be ready for them. There is 
such a wide variety of online services available that you 
will be able to tailor your telecomputing activity to suit 
your needs. 

As for the more experienced readers, do you agree or 
disagree with this column? Is there any special telecom- 
puting activity you especially enjoy that you feel I've 
slighted, or left out entirely? Keep in touch. 



Sheldon Leemon 
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Call US the modern way— 

on Ahoyl's Bulletin Board System! 
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Commodon 64 

Commodore IntOfnahanal 
IJOO Wilson Onvo 
WMt Chsstsr. PA 19360 
PiKine: 215-431-9100 

Vlaion BBS VM 
Vision Sotlwtn Co. 
PO. BoiSS' 
Bronn, N¥ 10461 
Phona: 212-829-1 538 



Editorial calendar tor 
upcoming issues 

Excerpts from future edi- 
tions o( Scuttlebutt 



Corrections to programs 
and articles 

Detailed descriptions 

of back issues 



Program disk and 
subscnption information 

Classified 

advertising 



Set your modem for 300 baud, full duplex, no parity, 1 stop bit, S-bit word length, and dial awayl 
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Un|,Kool C-100 
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909 Williamson Loop 
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Phone 503-476-1660 
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etactra Computer Pad 

Charleswaler Products. Inc 
93 Border Streel 
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Saliata SC-IOO Color MonNor 
Sakala USA Corporation 
651 Bonnie Lane 
Elk Grove Village. IL 60007 
Phone; 312-593-3211 
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Royal Seating Corporation 
P O Boi 753 
Cameron. TX 76520 
Phone: 817-697-6421 
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By David Barron, Morton Kevelson, and Michael Davila 



Enclosed is the program that I 
typed right out of the Simons' BAS!C 
instruction booklet. When I run it on 
either my 64 or my SX-64, it displays 
the sprites but it eats up the program 
too. What gives? — Michael Daniels 

CAFB, SC 

Michael, 

Simons' BASIC stores the sprite 
data in two areas of memory. The first 
extends from 2048 through 4095. The 
second is from 8192 through 16383. 
See the DESIGN command in the 
manual to learn how you may choose 
the storage location fitr sprites. The 
program you sent, from chapter eight 
in the Simons' BASIC manual, u.ses 
the first of these areas, which hap- 
pens to coincide with the start of 
BASIC'S program .storage. The follow- 
ing will move the start of BASIC up 
to 4096: 
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P0KE44 , 16 : POKE4096 , : NEW 

The first POKE changes the ad- 
dress for the start of BASIC. The sec- 
ond POKE puts a zero in the first lo- 
cation. This is required by the BASIC 
interpreter The.^e POKFj; wll resen>e 
two kilobytes for sprite data storage, 
while protecting your program from 
being overwritten by the sprite rou- 
tines in Simons' BASIC. These com- 
mands must he executed before 
LOADing the program. The penalty, 
ofcour.se, is the loss of two kilobytes 
from BASIC memory^ 

I bought a 64 last August and right 
now am getting into hi -res (bit 
mapped) graphics. I'd like to know 
if the 64 is capable of printing text 
and display bit mapped graphics at 
the same time. — Orlando Gonzplez 

Bronx, NY 

Orlando, 

It is not possible to mix the text and 
graphics (bit map) modes on the 64. 
One simple way around this is to 
write a routine that will place text on 
the hit map by reading the proper 
codes from the character generator 
ROM. This is simple to do, and will 
display characters identical to the 
standard character set on the 64. 

Several months ago I bought a 
Sears TV/Monitor (catalog 
#57H4084C) for use with my C-64. 
It has three operating modes: televi- 
sion, monitor (audio/video using 
RCA input jacks), and RGB monitor 
(with RGB style plug). I used the five 
pin, two plug monitor cable to con- 
nect my 64 to the monitor. 

This arrangement worked fme for 
playing games, but problems arose 
when I started using a terminal em- 
ulator that uses 80 columns on the 
64. It's extremely hard to decipher 
characters positioned close together 
in this 80-column mode. 1 thought 
this was because of the 64's limited 



graphics, but when a co-worker ran 
the same terminal emulator on his 
C-64 and ITDZ monitor, the difference 
in clarity was astounding. 

The manufacturer states that the 
TV/Monitor supports 80 columns in 
RGB mode, but says nothing about 
the audio/video mode. Is there any 
way to achieve the resolution of the 
Commodore monitor on my monitor? 
Is there any way to convert the Com- 
modore audio/video signal to an RGB 
signal? - Sean Flynn 

West Simsbury, CT 

Sean, 

Unfortunately, you are presently 
using the best means available. Even 
though your monitor has provisions 
for an RGB input, the C-64 does not 
have an RGB output. The 8-pin cable 
provides a separation of the \ideo sig- 
nal into its chroma and luminance 
components. This can only he taken 
advantage of by Commodore moni- 
tors to proxnde greater clarity. There 
is no feeble way to .split a standard 
video signal into its RGB compo- 
nents. 

I have just purchased my fourth is- 
sue of Ahoy! THANK YOU! Your 
magazine is the best source of info 
for me and my C-64, But I have a 
problem. I like to type in and save 
the programs you list, and it would 
be simpler to do so if I could use the 
Bug Repellent program. When I nm 
it all I get is *? QUANTITY ERROR 
IN 5000". Please straighten mc out. 
—Larry McCann 
Cincinnati, OH 

Dear Cmnked, 

TJie problem is not being caused 
by line 5000, hut by the data .state- 
ments in your program. What most 
likeiv caused the error is that vnu 
typed a number larger than 255 m th- 
in the data lines. I would suggest 
checking your data statements to cor- 
rect the problem. 



PROGRAM LISTINGS 



Attention new Ahoy! readers! You must read the following information very 

corefulfy prior to typing in programs listed in Ahoy.' Certain Commodore 

characters, commands, and strings of characters and commands will appear in 

a special format. Follow the instructions and listing guide on this poge. 




n the tnllmvjni; pages you'll tliul several pro 
gnmis ihiii ynu c;in enter nn your Commo- 
ilore computer. But beforv doing so. react this 
entire page careluily. 
To insua" clear reprotliictions, AlmyFs program hstings 
are generated on a daisy wheel printer, ineap<ible of print- 
ing the eoinmands and graphic characters used m Tom- 
iiKHiore programs. These are therefore represented by 
various ctxies enclosed in brackets | |. For example: the 
SHIFT n.R/HOMF command is represented onscreen 
by a heart ^ The cihIc we use in our listings is 
I CI, FAR I . The chart below lists all such codes which 
you'll encounter in our listings, except for one other spe- 
cial case. 

The other special case is the COMMODDRF ami 
SHIFT characters. On the front of most keys are two sym- 
bols. The symhil on the left is obtained by pressing that 
key while holding d(wn the COMMODORF key; the 
symbol on the right, by pressing that kcv while holdinc 
down the SHIFT key COMMODORF and SHIFT char- 
acters are represented in our listings by a lower-case V 
or "c" followed by the symbol of the key you must hit. 
rOMMODORF I. for example, is represented by |c J], 



and SHIFT I by |s ,I|. 

Additionally, any character that (xcurs more than two 
times in a row will be displayed by a c(»ded Ijvfing For 
example, [^ "[I.FFTri would bc"^ TnR^ioR l.>fi' nw 
mands in a nm. \5 \s EPj'j would be *» SHIt fed Fn 
giish Pounds, and soon. Multiple blank spaces will be 
noted in similar fashion: eg . 22 spaces as |2!? '"I 

.Sometimes you'll find a prcvgram line thal'v |(ki long 
for the computer to accept (C-64 lines are a maxmium 
of 80 characters, or 2 screen linos Kmg: V\C 20 lines. 
a maximum of 88 characters, (vr 4 screen lines) T<' en- 
ter these lines, refer to the BASIC Conmiatul Ahbrcxio- 
lions Appt'tidix in your I'scr Manii:il 

On the next page you'll find our Btui RcprHcnr pro- 
grams for the VIC 20 and C-64 The version appropri- 
ate for your machine will help you prfvifrrad our pro 
grams after you type them. (Please note: the Ruf; Repel- 
lent line codes that follow each program line, in the 
whited-out area, should not be typed in See the instruc- 
tions preceding each program.) 

Also on the following page you will find Fhmkspi'fid, 
our MI. entry program, and rn«Htrnciinn«. on its iim- r^ 

Call Afwyf at 212-239-0855 with any problems. 
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V>hm 








Xm 


Vni.Sw 




Vh.T>b 


CI.K'ltOMK B 


[BLACK] 




Vhi T%pi 
( MKI 


■ VViHSw 


[CLEAR] 


SHIhT 


[HOME] 


llonH' 




* 1 R MOMK 
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[WHITE] 


WhKf 


<NTRi 


1 




[UP] 


( lirviir 1 p 


SHIKI 


f ( RSK* 


m 


[RED] 


Rt-d 


INTKI 


i 




[DOWN] 


CiiiMir Iknin 




♦ ( HSK ♦ 


m 


[CYAN] 


< \Ml 


(MRI 


4 




[LEFT] 


C urxM- lifl 


SHin 


•« Ksk— 


m 


[PURPLE] 


Piirplf 


t NTRI 


« 




[RIGHT] 


CuiMH- Kiithl 




*<RSK* 


m 


[GREEN] 


(inrn 


(MKI 


A 




[SS] 


Shiftitl Sputt 


SH!»T 


SpaiT 


m 


[BLUE] 


HIlH' 


rVTRI. 


7 




[INSERT] 


InM-n 


SHin 


IVSI l>KI. 


m 


[YELLOW] 


^dhm 


( MKI 


H 




[DEL] 


ilrhir 




INSlVltKI 


m 


[Fl] 


t'UIHiilHI 1 




hi 




[RVSON] 


Ht-%iTv<- On 


< MKI. 


*t 


m 


[F2] 


l-iMHiiiiii ^ 


sHin 


n 




[RVSOFF] 


Rt-Mist (HI 


t NTRI 


11 
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[F3] 


KunrtMHi .) 




h.t 




[UPARROW] 


t |i Vrnm 
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m 


[FA] 


KlIIHtHH) 4 


SHIKI 
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[BACKARROW] 


HiKk VmM 




* 


m 


[F5] 


HiiikliiHi ."! 




K< 




[PI] 


I'l 




IT 


m 


[F6] 


KlIIKiHHI 6 


Slim 


KS 




[EP] 


KjicIKh l^iund 




i: 


m 


[F7] 
[F8] 


f'uiMlkm H 


sum 
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IMPDDTAMTI Letters on while background are Bug Repellent line codes Do not enter them! TJiisand the preceding explain these 
llVIr Un IHIM I ! codes and provide other essential information on entering Ahoy! proqrams Read these pages before entering programs. 

n| |<^ DC DC I I BIWIT ci>nlnicii<.'li()ns nccur. LIST Ciich line, spot the errors, anil correct 

This prograiii will let you debug any Ahoy! program. Follow in- 
siruciions lor V!C 20 (cassette or di.sk) or C-64. 

VIC 20 VERSION 
By Michael Kleinert and David Barron 

Fonasxeite: type in and save the Bh,i,' Rcpellcni program, then 
type RUN 63000[RETURN1SYS 828|RETURN). If you typed the 
program properly, it will generate a set of two-tetter line cixJes that 
will match tho.sc listed to the right of the respective program lines. 

Once you've got a working Bug RepeUeni. type in the program 
you wish to check. Save it and type the RUN and SYS commands 
listed above once again, then compare the line codes generated to 
those listed in the magazine. If you spot a discrepancy, a typing 
error exists in that line. Important: you must use exactly the same 
spacing as the program in the magazine. Due to memory limitations 
on the VIC. the VIC J5»j? Repellent will register an error if your 
spacing varies from what's printed. 

You may type SYS 828 a.s many times as you wish, but if you 
use the cassette for anything, type RUN 63000 to restore the 
Repellent. 

When your program has been disinfected you may delete all lines 
from 6.3000 on. (Be sure the program you type doesn't include lines 
above 63000!) 

For itisk: enter Bug Repellent, save it, and type RUN: NEW 
[RETURN]. Type in the program you wish to check, then SYS 828. 

To pause the line codes listing, press SHIFT. 

To send the list to the printer type OPEN 4.4:CMD 4:SYS 
828|RETURN|. When the cursor comes back, type 
PRINT#4:CLOSE 4|RETURN1. 

63000 FORX=828T01023: READY :POKEX,Y: NEXT: END AC 

63001 DATA169, 0,133, 63, 133, 64, 165, 43, 133, 251 JL 

63002 DATA165, 44, 133, 252, 160, 0,132, 254, 32, 228 OF 

63003 DATA3, 234, 177, 251, 208, 3, 76, 208, 3, 230 OE 

63004 DATA251, 208, 2, 230, 252, 169, 244, 160, 3, 32 OH 

63005 DATA30, 203 , 160 , , 177 , 251 , 1 70, 230, 251 , 20 
8 KO 
63r/j6 DATA2,230, 252, 177,251 ,32 , 205 , 221 , 169, 58 JJ 
63007 DATA32, 210, 255, 169, 0,133, 253, 230, 254, 32 OK 
63''/j8 DATA228,3,234, 165,253, 160,0, 170, 177,251 LG 
63r/j9 DATA201, 32, 240, 6, 138, 113, 251, 69, 254, 170 BP 
63010 DATA138, 133, 253, 177, 251, 208, 226, 165, 253 



ihcni 

• 50f/J F0RX=49152T049488 : READY :POKEX , Y : NEXT : END GJ 
•5001 DATA32. 161, 192, 165, 43, 133, 251, 165, 44, 133 DL 

•5002 DATA252, 160, 0,132, 254, 32, 37, 193, 234, 177 DB 

•SOfjS DATA251, 208, 3, 76, 138, 192, 230, 251, 208, 2 OF 

•5004 DATA230,252,76,43,192,76,73,78,69,32 KN 

•5005 DATA35, 32, 0,169, 35, 160, 192, 32, 30, 171 CA 

•5006 DATA160, 0,177, 251, 170, 230, 251, 208, 2, 230 CE 
•5f/j7 DATA252,177,251,32,205,189,169,58,32,210 JE 

•5f/j8 DATA255, 169, 0,1 33, 253, 230, 254, 32, 37, 193 CL 

•5f^jfj9 DATA234, 165, 253, 160, 0,76, 13, 193, 133, 253 NB 
•5010 DATAl 77, 251, 208, 237, 165, 253, 41, 240, 74, 74 MB 

•5011 DATA74,74,24, 105,65,32,210,255, 165,253 EP 

■5012 DATA41, 15, 24, 105, 65, 32, 210, 255, 169, 13 GH 

•5013 DATA32, 220, 192, 230, 63, 208, 2, 230, 64, 230 AN 

•5014 DATA251, 208, 2, 230, 252, 76, 11, 192, 169, 153 NG 

•5015 DATA160, 192, 32, 30, 171, 166, 63, 165, 64, 76 BF 

•5016 DATA231,192,96,76,73,78,69,83,58,32 EP 

•5017 DATAO, 169, 247, 160, 192, 32, 30, 171, 169, 3 PJ 

•5018 DATA133, 254, 32, 228, 255, 201, 83, 240, 6, 201 FK 

•5019 DATA80, 208, 245, 230, 254, 32, 210, 255, 169,4 FL 
•5020 DATA166, 254, 160, 255, 32, 186, 255, 169,0, 133 CL 

•5021 DATA63, 133, 64, 133, 2, 32, 189, 255, 32, 192 GC 

•5022 DATA255, 166, 254, 32, 201, 255, 76, 73, 193,96 NN 

•5023 DATA32, 210, 255, 173, 14 1,2, 41, 1,208, 249 NH 

•5024 DATA96, 32, 205, 189, 169, 13, 32, 210, 255, 32 IM 

•5025 DATA204, 255, 169, 4, 76, 195, 25 5, 147, 83, 67 KC 

•5026 DATA82, 69, 69, 78, 32, 79, 82, 32, 80, 82 DC 

•5027 DATA73, 78, 84, 69, 82, 32, 63, 32, 0,76 ML 

•5028 DATA44, 193, 234, 177, 251, 201, 32, 240, 6, 138 GN 

•5029 DATA113, 251, 69, 254, 170, 138, 76, 88, 192,0 JK 

•5030 DATAO, 0,0, 230, 251, 208, 2, 230, 252, 96 NA 

•5031 DATA170, 177, 251, 201, 34, 208, 6, 165, 2, 73 DM 

•5032 DATA255, 133, 2, 165, 2, 208, 218, 177, 251. 201 .JA 

•5033 DATA32, 208, 212, 198, 254, 7^29, 193, 0,169 FM 

•5034 DATA13, 76, 210, 255, 0,0,0 PA 



FOR THE C-64 



,41 

6301 1 DATA240 , 74 , 74 , 74 , 74 , 24 , 105 , 65 , 32 , 210 

63012 DATA255, 165, 253, 41, 15, 24, 105, 65. 32, 210 

63013 DATA255 , 169 , 13 , 32 , 210, 255 , 173 , 141 , 2 ,41 

63014 DATAl , 208 , 249 , 230 , 63 , 208 , 2 , 230 , 64 , 230 

63015 DATA251, 208, 2, 230, 252, 76, 74, 3, 169, 236 

63016 DATA160,3,32,30,203,166,63,165,64,32 

63017 DATA205, 221, 169, 13, 32, 210, 255, 96, 230, 25 
1 

63018 DATA208,2,230,252,96,0,76,73,78,69 

63019 DATA83, 58, 32, 0,76, 73, 78, 69, 32, 35 

63020 DATA32, 0,0, 0,0,0 

C-64 VERSION 
By Michael Kleinert and David Barron 

Type in. .SAVE, and RUN the Biif; Rqwllcni. Type NEW. then 
type in or LOAD the Ahoy', program you wish to check. When that's 
done. SAVE vour program (don't RUN iti) ami type ,SYS 4')l.'i2 
IRETURNI ' 

To pause the listing depress and hold the SHIFT key. 

Compare the codes your machine generates to the codes listed 
to the right of the respective program lines. If you spot a difference. 
jn error exists in ihui line. Jot down the number of lines where 

88 AHOY! 



DD 
EK 
FO 
PK 
CB 
KH 
DP 

EL 
01 
FG 
LE 



By Gordon F. Wheat 

l-'hmkspeit! will allov^' yoii to enter machine language Ahny'. pro- 
grams without an> mistakes. Once \uu have lypeil the program iti. 
save it for future use. While entering an ML program with 
Fhinkspefil there is no need to enter spaces or hit the carriage return. 
This is all d<ine auiomatically . II you make an error in a line a bell 
will ring and you will he asked to enter it again. Jo LOAD in a 
program Saved with Fhinkspeed use LOAD "name",!. I for tape, 
or LOAD "name'.N.l for disk. The function keys may be used after 
the starling and ending addresses ha\e been eniered. 
11 - S,^VEs what you ha\e entered so tar. 
f3 LO,^D^ in a program worked on previously. 
f5 - To c<intinue on a line you stopped on alter LOADing in the 
previously saved work. 

17 -Scans through the prograni to locate a punicular line, or lo llnd 
i>ut where you slopped the last time you entered the program. t7 
temporarily freezes the output as well. 

•5 POKE53280,12:POKE53281,ll ■ 

•6 PRINT"[CLEAR][c 8][RVS0N][15" "]FLANKSPEED[ 

ICM 111", 

•10 PRINT"[RVS0N][5" "]MISTAKEPR00F ML ENTRY P 
R0GRAM[6" "]" MC 

•15 PRINT"[RVS0N][9" "]CREATED BY G. F. WHEAT[ 
9" "]" W1 

•20 PRINT"[RVS0N][3" "]COPR. 1984, ION INTERNA 



LL 



ED 



TIONAL INC. [3" "]" DH 

■30 FORA=54272T054296:POKEA.O:NEXT IM 

•40 POKE54272,4:P0KE54273,48:POKE5A277,0:POKE5 
, 4278,249:P0KE5A296,15 NH 

•70 F0RA=680T0699:READB:P0KEA,B:NEXT KO 

I -75 DATA169, 251. 166, 253, 164,254. 32. 216, 255. 96 HJ 
j-76 DATA169, 0.166, 251, 164, 252. 32. 213, 255, 96 JB 

•80 B$="STARTING ADDRESS IN HEX":CX)SUB2010:AD- 
I B:SR-B HC 

|-85 G0SUB2520:IFB=f/rHEN80 FO 

I -86 POKE251,T(4)+T(3)*16:POKE252,T(2)+T(l)*16 KE 
'■90 B$="ENDING ADDRESS IN HEX":GOSUB2010:EN-B IF 
•95 GOSUB2510:IFB=r/rHEN80 FP 

•96 POKE254,T{2)+T(l)*16:B=T(4)+l+T(3)*16 MN 

•97 IFB>255THENB=B-255:POKE254,PEEK(254)+l GE 

•98 P0KE253.B:PRINT HN 

•K/j REM GET HEX LINE \l 

•no GOSUB3010:PRINT": [c P][LEFT]"; :F0RA=f/r08 FG 
■120 F0RB=0T01:Gar0210 MD 

•125 NEXTB ME 

•130 A%(A)=T(1)+T(0)*16:IFAD+A-1=ENTHEN310 LH 

•135 PRINT" [c P][LEFT-]"; IK 

•140 NEXTA:T=AD-(1NT(AD/256)*256):PRINT" " PD 

•150 F0RA=''/rO7;T=T+A%(A).-IFT>255THENT=T-255 LK 
•160 NEXT . lA 

•170 IFA%{8)<>TTHENGOSUB1010:GOT0110 FK 

•18fj F0RA=f/r07:P0KEAD+A,A%(A):NEXT:AD=AD+8:GCrr 

0110 MN 

•ir/j REM GET HEX INPUT AB 

•210 GETA$:IFA$=""THEN210 HO 

•211 IFA$=CHR$(20)THEN270 GC 

•212 IFA$=CHR$(133)THEN4V/j MD 

•213 IFA$=CHR$(134)THEN4ir/) KF 

■214 IFA$=CHR$(135)THENPRINT" ":GOT04500 GE 

•215 IFA$=CHR$(136)THENPRINT" ":GOT047r/j BJ 

• 220 IFA$>"@"ANDA$<"G"THENT( B)=ASC( A$ )-55 :G0TO 

250 GM 

•230 IFA$>'7"ANDA$<":"THENT(B)=ASC(A$)-48:G0T0 

250 LE 

•240 G0SUB11C/;:G0T0210 LL 

•250 PRINTA$"[c P][LEFT]"; OA 

•260 GOT0125 CG 

•270 IFA>0THEN28O OP 

•272 A=-l:IFB=lTHEN29fJ OB 

•274 G0T0140 CJ 

•28fj IFB-OTHENPRINTCHR$(20);CHRS(20)j:A-A-l HG 
•285 A=A-1 BE 

•29^j PRINTCHR$(20);:G0T0140 KH 

•3V> REM LAST LINE AD 

•310 PRINT" ":T=AD-(INT(AD/256)*256) GJ 

•320 FORB=''jTOA-l:T=T+A%(B):IFT>255THENT=T-255 PL 
•330 NEXT I A 

•340 IFA%(A)<>TTHENGOSUBI010:GOT0110 KF 

•350 FORB=r/rOA-l:POKEAD+B,A%(B):NEXT HN 

•360 PRINT :PRINT"Ydu ARE FINISHED! ":G0T04r//j ON 
•KX/j REM BELL AND ERROR MESSAGES FL 

•1010 PRINT :PRINT"LINE ENTERED INCORRECTLY": PR 

INT:GGT01100 DH 

•1020 PRINT: PRINT"INPUT A 4 DIGIT HEX VALUE'": 

GOTOlK/j jA 

•1030 PRINT: PRINT"ENDING IS LESS THAN STARTING 
!":B=0:G0T011''/j HD 

•1040 PRINT: PRINT"ADDRESS NOT WITHIN SPECIFIED 
RANGE!": B=0:G0T011<'Xj AG 

•1050 PRINT :PRINT"N0T ZERO PAGE OR ROM!":B=0:G 
OTOiir/j KN 



•1060 PRINT"?ERROR IN SAVE": GOTO IK/J EI 

•1070 PRINT"?ERROR IN LOAD": GOTO IK/j GL 

«'K;80 PRINT:PRINT:PRINT"END OF ML AREA":PRINT PG 
•IK/J P0KE54276,17:P0KE54276. 16: RETURN BH 

•I2f)f} 0PEN15,8.15:INPUTilll5,A,A$:CLOSE15:PRINTA 

$: RETURN im 

•2f/jO REM GET FOUR DIGIT HEX PC 

•2010 PRINT :PRINTB$;:INPUTT$ GM 

•2020 IFLEN(T$)<>4THENGOSUB1020:GOT02010 II 

•2f;40 F0RA=1T04:A$=MID$(T$,A.1):GOSUB2''j60:IFT( 

A)=rl6THENGOSUB1020:GOT02010 AD 

•2050 NEXT:B=(T(1)*4096)+(T(2)*256)+(T(3)*16)+ 

T(4): RETURN GF 

•2%0 IFA$>"@"ANDA$<"G"THENT(A)=.ASC(A$)-55:RET 

URN EH 

•2070 IFA$>"/"ANDA$<":"THENT(A)=ASC(A$)-48:RET 

URN KP 

•2f;80 T(A)=16:RETURN NP 

•25f/j REM ADRESS CHECK LI 

•2510 IFAD>ENTHEN1030 MI 

•2515 IFB<SR0RB>ENTHENlf;40 MG 

•2520 IFB<2560R(B>4f;960ANDB<49152)0RB>53247THE 

N1050 MI 

•2530 RETURN IM 

•3r/jO REM ADDRESS TO HEX EB 

•3010 AC=AD:A=4096:GOSUB3070 HG 

•3020 A==256:GOSUB3070 CE 

•3030 A=16:GOSUB3070 pN 

•3r>40 A=l:GOSUB3070 MJ 

•3%0 RETURN IM 

• 3070 T-INT( AC/A) : IFT>9THENA$-CHR$(T+55) :G0T03 
090 CJ 

•3fj80 A$=CHR$(T+48) Jp 

•3090 PRINTA$::AC=AC-A*T: RETURN AC 

•40f/j A$=."**SAVE**":G0SUB42VJ AI 

•4050 0PENl,T,l,A$:SyS680:CL0SEl LH 

•i*(>6() IFST=OTHENEND £0 

•4070 GOSUBl'';60:IFT-8THENGOSUB12fjO FJ 

•4080 G0T04V/J FF 

•4ir/j A$="**L0AD**":G0SUB42r/j ab' 

•4150 0PENl,T.0,A$:SYS69fJ:CL0SEl MF 

•4160 IFST=64THEN110 JH 

■4170 GOSUB1070:IFT=.8THENGOSUB1200 CM 

•4180 G0T041f/j FO 

•42f/j PRINT" ":PRINTTAB(14)A$ FG 

•4210 PRINT :A$="":INPUT"FILENAME";A$ m 

■4215 IFA$=""THEN4210 GF 

■4220 PRINT :PRINT"TAPE OR DISK?": PRINT DF 

• 4230 GETB$ : T=l : IFB$="D"THENT=8 : A$="@fj: "+A$ : RE 
TURN iG 

•4240 IFB$<>"T"THEN4230 FN 

•4250 RETURN IM 

•4500 B$="CONTINUE FROM ADDRESS" :G0SUB2010: AD- 

B DK 

•4510 GOSUB2515:IFB-f/rHEN45Vi MA 

•4520 PRINT :G0T01 10 01 

•47f/j B$="BEGIN SCAN AT ADDRESS" :G0SUB2010:AD= 

B FH 

•4705 GOSUB2515:IFB=OTHEN47f/j NK 

•4706 PRINT:GOT04740 DI 

•4710 FORB=W07:AC=PEEK(AD+B):GOSUB3030:IFAD+B 

-.ENTHENAD=SR : GOSUB1080 : GOTOllO BK 

•4715 PRINT" ";:NEXTB EC 

•4720 PRINT: AD-AIM-S GN 

•4730 GETB$:IFB$=CHR$(136)THEN110 MN 

•4740 G0SUB3010: PRINT": ";:GOT04710 JD 
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I KJI DriDTA MTl Letters on white background are Bug Repellent line codes. Do not enter them! Pages 87 and 88 explain these codes 
I IVI I Ull IMN I ! and provide other essential information on entering Ahoy! programs. Refer to these pages before entering any programs! 



-allingNeeclles& iZS^^nllVe 
Shared Birthdays 'S^^°^'^f 



FROM PAGE 53 

1 REM 



NEEDLES 



- NEEDLES — 
RUPERT REPORT #20 

- SIMULATE THE BUFFON NEEDLE 
EXPERIMENT, DROP NEEDLES OF 
LENGTH L ON FLOORBOARDS OF 
WIDTH H. SUCCESS IF NEEDLE 
LANDS ON A CRACK. PROBABILITY 
OF LANDING ON A CRACK IS 
(2*L)/(H*PI) 



2 REM 

3 REM 

4 REM 

10 REM 

11 REM 

12 REM 

13 REM 
U REM 

15 REM 

16 REM 

17 REM 

20 H=l :L=H :TRIES=1 :WINS=1 :K=2*L/H 

30 PRINT CHR$(147)TAB(12)"< TRIES" 

40 PRINT TAB(12)"< PI" 

50 PRINT TAB(12)"< AVG" 

60 YO=H*RND(0) 

70 A=RND(0)*30000 

80 Y=L*SIN(A)+YO 

90 IF Y>H OR Y<0 THEN WINS=WINS+1 

If/J PI=K*TRIES/WINS 

110 TTL=TTL+PI : AVG=TTL/TRIES 

120 PRINT CHR$(19)TRIES : PRINT PI 

130 PRINT AVG 

140 TRIES=TRIES+1 

150 GOTO 60 



JD 
EE 
OJ 
JD 
DC 
GI 
GP 
OJ 
MO 
DC 
DL 
JD 
KF 
NF 
AJ 
DG 
GN 
MP 
IG 
JG 
NC 
KE 
EH 
HM 
MN 
PG 



BIRTHDAY CALC 

1 REM JD 

2 REM — BIRTHDAY CALC ~ ML 

3 REM RUPERT REPORT #20 OJ 

4 REM JD 

10 REM - CALCULATE THE PROBABILITY CK 

11 REM THAT FOR A GROUP OF NP PEOPLE EO 

12 REM TWO OR MORE OF THEM WERE BORN MP 

13 REM ON THE SAME DAY OF THE YEAR OK 

14 REM JD 
20 PRINT CHR$(147) FG 
30 PRINT "HOW MANY PEOPLE ARE IN THE ROO 
M": PRINT" (ENTER FOR COMPLETE LIST)" KI 
40 INPUT NP CC 
50 IF NP<=0 OR INT(NP)<>NP THEN 200 BG 
60 PF=1 :REM PROBABILITY OF FAILURE DM 
70 FOR 0=1 TO NP AI 
80 PF=(367-Q)*PF/366 : NEXT JC 
90 PS=1-PF :REM PROBABILITY OF SUCCESS IL 
ir/j PRINT JJ 
110 PRINT"IN A GROUP OF" NP "PEOPLE," KE 
120 PRINT"THERE IS A" PS*100 "PERCENT" CG 
130 PRINT"PROBABILITY THAT TWO OR MORE" KG 



140 PRINT"PEOPLE HAVE THE SAME BIRTHDAY" AN 

150 PRINT JJ 

160 GOTO 30 OJ 

IV) PF=1 HM 

210 FOR NP=1 TO 366 EP 

220 PF=PF*(367-NP)/366 DA 

230 PRINT "# PEOPLE ="NP; CO 

240 PRINT "[3" "]% PROB. =" (l-PF)*ir/j IB 

245 REM COUNT # OF LINES LISTED (NL) AC 

250 NL=NL+1 : IF NL<20 THEN 290 GD 

260 NL=0 IB 
270 PRINT "PRESS ANY KEY FOR M0RE[3"."]" LE 

280 GET X$:IF X$="" THEN 280 JH 

290 NEXT lA 



BIRTHDAY SIMULATOR 



BIRTHDAY SIMULATOR — 
RUPERT REPORT #20 

SIMULATE GROUPS OF PEOPLE WITH 
RANDOMLY CHOSEN BIRTHDAYS. 
EACH GROUP CONTAINS 'NUMP' 
PEOPLE. BDAY(X) IS THE 

(1-366) OF THE XTH 
CT(X) IS THE COUNT OF 
HOW MANY PEOPLE IN THE GROUP 
HAVE DAY X AS THEIR BIRTHDAY. 
SUCCESS=1 IF TWO PEOPLE IN 
ONE GROUP HAVE THE SAME 
BIRTHDAY. 



BIRTHDAY 
PERSON . 



1 REM 

2 REM 

3 REH 

4 REM 

10 REM 

11 REM 

12 REM 

13 REM 

14 REM 

15 REM 

16 REM 

17 REM 

18 REM 

19 REM 

20 REM 

21 REM 

30 NUMP=24 :REM « CHANGE THIS 

40 DIM BDAY(NUMP),CT(366) 

50 GR0UP=1 

60 SUCCESS=0 

65 REM - RESET COUNT OF USED BIRTHDAYS 

70 FOR PERSN=1 TO NUMP 

80 CT(BDAY(PERSN))=0 : NEXT 

85 REM - CHOOSE EACH PERSON'S BIRTHDAY 

90 FOR PERSN=1 TO NUMP 

W) DAY=INT(366*RND(0))+1 

110 BDAY(PERSN)=DAY 

120 CT(DAY)=CT(DAY)+1 

130 NEXT PERSN 

135 REM - CHECK FOR DUPLICATES 

140 FOR PERSN=1 TO NUMP 

150 IF CT( BDAY( PERSN ))<2 THEN 180 

160 SUCCESS=1 

170 PERSN=NUMP 

180 NEXT PERSN 

190 IF SUCCESS=1 THEN TTL=TTL+1 

2r/j PRINT GR0UP"GR0UPS[4" "]"; 

210 PRINT TTL*100/GR0UP"% SUCCESS" 

220 GR0UP=GR0UP+1 : GOTO 60 



JD 
BK 
OJ 
JD 
GN 
CL 
DH 
DN 
OD 
HP 
DL 
LI 
OC 
CO 
BO 
JD 
MJ 
LJ 
IH 
PH 
PP 
OG 
IE 
ND 
OG 
BK 
JK 
PB 
AA 
NK 
OG 
NP 
PG 
IE 
AA 
LK 
AM 
OB 
OK 
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VIC 


20 


BUG REPELLENT LINE CODES FOR FALLING NEEDLES AND SHARED BIRTHDAYS 








NEEDLES 






BIRTHDAY CALC 


BIRTHDAY SIMULATOR 


§ 


1: 


JD 


# 14: AE 


# 70: MP 


# 1: 


JD 


# 40: CH 


# 160: DM 


# 1: 


JD 


# 19: CG 


# 110:JK 


i 


2: 


GN 


# 15: AJ 


# 80: IG 


# 2: 


LC 


# 50: LK 


# 200: HM 


# 2: 


CD 


# 20: BA 


# 120:PB 


# 


3: 


AD 


# 16: BE 


# 90: IC 


# 3: 


PN 


# 60: KL 


# 210: DJ 


# 3: 


AF 


#21: JD 


# 130: AO 


# 


4: 


JD 


# 17: JD 


# ir/j:NC 


# 4: 


JD 


# 70: PO 


# 220: DA 


# 4: 


JD 


# 30: HG 


# 135 :CG 


# 


10: 


FH 


# 20: IE 


# 110: IJ 


# 10: 


MI 


# 80: JF 


# 230: OH 


# 10: 


AC 


# 40: AC 


# 140 :0G 


# 


11: 


EG 


# 30: HM 


# 120:01 


# 11: 


EE 


# 90: AD 


# 240 :FE 


# 11: 


GA 


# 50: IH 


# 150: BA 


# 


12: 


OK 


# 40: OB 


# 130: HK 


# 12: 


IP 


# K/j:JJ 


# 245: MB 


# 12: 


NF 


# 60: PH 


# 160 :PG 


# 


13: 


GG 


# 50: CN 
1 # 60: GN 


# 140 :MN 

# 150: PD 


# 13: 

# 14: 

# 20: 


IF 

JD 

FB 


# 110:HH 

# 120: OH 

# 130: OE 


# 250: MP 

# 260: IB 

# 270: JO 


# 13: 

# 14: 

# 15: 


FB 

ED 

GN 


# 65: GP 

# 70: OG 

# 80: IH 


# 170: IE 








# 180: AO 






# 190 :MJ 












# 30: 


BL 


# 140 :GD 

# 150: JJ 


# 280 :KA 

# 290: lA 


# 16: 

# 17: 

# 18: 


FF 
JA 
KH 


# 85: OL 

# 90: OG 

# 100: BK 


# 200: FN 




1 


# 210: NK 

# 220 :0G 



10 

LH 
CJ 
KG 
JC 
CF 
IM 



Sputter Pop Hiss Chop Flap 
Crash Slurp Mush 

FROM PAGE 18 SIMPLE GUNSHOT {C-64) 
!•! REM SOUND EFFECTS CA 

•2 REM SIMPLE GUNSHOT jj 

•3 REM (NOTE THAT LINES U/j AND ABOVE ARE 
' "SUPPORT"-~LINES 20-90 MAKE THE SOUND) KA 
■10 GOSUB 9r/j:G0T0 U/} 

•20 POKE AD(1),5:P0KE SR(1),0:POKE FLCl), 
30: POKE FH(1),30 
•30 POKE VL, 15: PRINT "." 
•40 POKE GT(1),129 
•50 FOR 1=0 TO 59: NEXT 
j'60 POKE GT(1),0 
'•90 RETURN 
•99 REM ROUTINE TO PLAY SOUNDS WHEN SHIFT 

IS PRESSED KO 

•100 PRINT "PRESS SHIFT TO HEAR SOUND"; DB 
•110 IF PEEK(653)=0 THEN 110 GL 

•120 GOSUB 20: GOTO K/j EI 

•898 REM ROUTINE TO SET UP VARIABLES AJ 
•899 REM SET UP SOUND CONTROL ADDRESSES LB 
•gVJ FL(0)=54272:FH(0)=54273:GT(0)=54276: 
AD(0)=54277:SR(0)=54278 LD 

•905 FOR 1=1 TO 2:X=I*7:FL(I)=FL(0)+X:FH( 
I)=FH(0)+X:GT(I)^T(0)+X:AD(I)=AD(0)+X MG 
•906 SR(I)=SR(0)+X:NEXT BE 

•909 REM SET VOLUME ADDRESS GJ 

•910 VL=54296 FN 

•990 RETURN IM 

HELICOPTER BLADES (C-64) 
•1 REM SOUND EFFECTS CA 

•2 REM HELICOPTER BLADES CD 

•3 REM HUMMING SOUND IN VOICE SUGGESTS 

YOU ARE IN HELICOPTER LB 

•4 REM TO HEAR MORE DISTANT CHOPPER, REMO 

VE ":POKE GT(0),17" FROM LINE 40 ML 
•TO GOSUB 9r/j:G0T0 100 10 



•20 FOR 1=1 TO 2:P0KE AD(I) ,48:P0KE SR(I) 

,16:NEXT:P0KE FH(1),20:P0KE FH(2),40 BC 
•25 POKE AD(0),34:P0KE SR(0),49:P0KE FH(0 

) . l''J LD 

•30 POKE VL. 15: PRINT "PRESS SHIFT TO STOP 

SOUND" OC 

•40 POKE GT(l),129:POKE GT(2),129:P0KE GT 

(0),17 KF 

•50 FOR 1=10 TO 220 STEP 70: POKE FH(1),I: 

POKE FH(2),I:NEXT NP 

•60 POKE GT(1),0:P0KE GT(2),0tP0KE GT(0), 

0:IF PEEK(653)=0 THEN 40 LM 

•70 IF PEEK(653)<>0 THEN 70 AK 

•90 RETURN im 

•99 REM ROUTINE TO PLAY SOUNDS WHEN SHIFT 

IS PRESSED KG 

•100 PRINT "PRESS SHIFT TO HEAR SOUND" OL 
•110 IF PEEK ( 653 )»0 THEN 110 GL 

•120 GOSUB 20: GOTO 100 EI 

•898 REM ROUTINE TO SET UP VARIABLES A J 
•899 REM SET UP SOUND CONTROL ADDRESSES LB 
•900 FL(0)=54272:FH(0)=54273:GT(0)=54276: 
AD(0)=54277:SR(0)=54278 LD 

•905 FOR 1=1 TO 2:X=I*7:FL(I)=FL(0)+X:FH( 

I)=FH(0)+X:GT(I)=GT(0)+X:AD(I)=AD(0)+X MG 
•906 SR(I)=SR(0)+X:NEXT BE 

•909 REM SET VOLUME ADDRESS GJ 

•910 VL=54296 FN 

•990 RETURN im 

SAWING WOOD (C-64) 
•1 REM SOUND EFFECTS CA 

•2 REM SAWING WOOD LE 

•10 GOSUB 9''/J:G0T0 100 10 

•20 FOR 1=1 TO 2: POKE AD(I),0 :P0KE SR(I) 

,243: NEXT jn 

•25 POKE AD(0),64:P0KE SR(0),66 IH 
•30 POKE FH(1), 255: POKE FH(2),12 :P0KE FH 

(0),200 GD 

•35 POKE VL,15:PRINT "." CJ 

•40 POKE GT(1), 129: POKE GT(2) ,129:POKE GT 
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(0),21 KK 

•45 FOR 1=0 TO 7:P0KE VL,5:P0KE VL,15:F0R 

X=0 TO INT(4*RND(9)):NEXT:NEXT AI 
•50 FOR 1=15 TO STEP-1:P0KE VL.IiNEXT BH 
•55 FOR 1=1 TO 15 -.POKE VL,I:FOR X=0 TO 3: 

NEXT; NEXT AK 

•60 FOR 1=0 TO 2: POKE GT(I),0:NEXT KA 
•90 RETURN IM 

•99 REM ROUTINE TO PLAY SOUNDS WHEN SHIFT 

IS PRESSED KO 

•100 PRINT "PRESS SHIFT TO HEAR SOUND"; DB 
•110 IF PEEK(653)=0 THEN 110 GL 

•120 GOSUB 20: GOTO 100 EI 

• 898 REM ROUTINE TO SET UP VARIABLES A J 
•899 REM SET UP SOUND CONTROL ADDRESSES LB 
•900 FL(0)=54272:FH(0)=54273:GT(0)=54276: 

AD(0)=54277iSR(0)=54278 LD 

•905 FOR 1=1 TO 2:X=I*7:FL(I)=FL(0)+X:FH( 

I)=FH(0)+X:GT(I)=GTCO)+X:AD(I)=AD(0)+X MG 
•906 SR(I)=SR(0)+X:NEXT BE 

•909 REM SET VOLUME ADDRESS GJ 

•910 VL=54296 FN 

•990 RETURN IM 



SPACE GUNSHOT {C-64) 

•1 REM SOUND EFFECTS CA 

■2 REM "SPACE" GUNSHOT LE 

•10 GOSUB 900: GOTO 100 10 

•20 POKE AD(1),5:P0KE SR(1),53:P0KE FL(1) 

,30:P0KE FH(1),30 PJ 

•25 POKE AD(0),5:POKE SR(0),53 :POKE FH(0 

),250 NG 

•30 POKE VL, 15: PRINT "." CJ 

•40 POKE GT(1),129:F0R 1=0 TO 29:NEXT:POK 

E GT(0),17 AG 

•50 FOR 1=225 TO 25 STEP -25: POKE FH(0),I 

:FOR X=0 TO 19: NEXT: NEXT J J 

•60 POKE GT(1),0:POKE GT(0),0 ID 

•90 RETURN IM 

•99 REM ROUTINE TO PLAY SOUNDS WHEN SHIFT 

IS PRESSED KO 

•100 PRINT "PRESS SHIFT TO HEAR SOUND"; DB 
•110 IF PEEK(653)=0 THEN 110 GL 

•120 GOSUB 20: GOTO 100 EI 

•898 REM ROUTINE TO SET UP VARIABLES A J 
•899 REM SET UP SOUND CONTROL ADDRESSES LB 
•900 FL(0)=54272:FH(0)=54273:GT(0)=54276: 

AD(0)=54277:SR(0)=54278 LD 

•905 FOR 1=1 T0-2:X=I*7:FL(I)=FL(0)+X:FH( 

I)=FH(0)+X:GT(I)=GT(0)+X:AD(I)=AD(0)+X MG 
•906 SR(I)=SR(0)+X:NEXT BE 

•909 REM SET VOLUME ADDRESS GJ 

•910 VL-^54296 FN 

•990 RETURN IM 



•10 GOSUB 90rj:G0T0 100 10 

•20 POKE AD(1), 160: POKE SRCl), 255: POKE FL 

(1), 30: POKE FH(1),30 AF 

•25 POKE AD(2),15:POKE SR(2),0:P0KE FH(2) 

,80 LH 

•30 POKE VL,15:PRINT "PRESS RUNSTOP/RESTO 

RE TO STOP" GC 

•35 POKE GT(1),129 KG 

•40 POKE GT(2),129:FOR 1=255 TO 100 STEP 

-(l+INT(3*RND(9))):POKE FH(1),I 
•50 X=4+INT(I/23):IF X>15 THEN X=15 
•55 POKE VL,X:FOR X=0 TO 29 : NEXT : NEXT : POK 

E GT(2),0 NI 

•60 FOR 1=100 TO 255 STEP 8+INT(10*RND(9) 

):POKE FH(1).I 
•70 X=4+INT(I/23):IF X>15 THEN X=15 
•75 POKE VL,X:FOR X=0 TO 19: NEXT: NEXT 
•80 GOTO 40 
•90 RETURN 
•99 REM ROUTINE TO PLAY SOUNDS WHEN SHIFT 

IS PRESSED KO 

•100 PRINT "PRESS SHIFT TO HEAR SOUND" OL 
•110 IF PEEK(653)=0 THEN 110 GL 

•120 GOSUB 20: GOTO 100 EI 

•898 REM ROUTINE TO SET UP VARIABLES AJ 
•899 REM SET UP SOUND CONTROL ADDRESSES LB 
•900 FL(0)=54272:FH(0)=54273:GT(0)=54276: 

AD(0)=54277:SR(0)=54278 LD 

•905 FOR 1=1 TO 2:X=I*7:FL(I)=FL(0)+X:FH( 

I)=FH(0)+X:GT(I)=GT(0)+X:AD(I)=AD(0)+X MG 
•906 SR(I)=SR(0)+X:NEXT BE 

•909 REM SET VOLUME ADDRESS GJ 

•910 VL=54296 FN 

•990 RETURN IM 



•1 REM SOUND EFFECTS 
•2 REM SEASHORE 
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SEASHORE (C-64) 



LE 
DA 



FD 
DA 
EA 
PE 
IM 



CA 
PL 



BOINK (C-64) 

•1 REM SOUND EFFECTS CA 

•2 REM "BOINK" FF 

•10 GOSUB 900: GOTO 100 10 

•20 POKE AD(1),5:P0KE SR(1),21:P0KE FL(1) 

,30: POKE FH(1),30 DI 

•25 POKE AD(0),5:P0KE SR(0),53 :POKE FH(0 

),25 U 

•30 POKE VL, 15: PRINT "." CJ 

•40 POKE GT(1),129:F0R 1=0 TO 29: NEXT: POK 

E GT(0),17 AG 

•50 FOR 1=25 TO 250 STEP 25: POKE FH(0),I: 

FOR X=0 TO 14: NEXT: NEXT AD 

•60 POKE GT(1),0:P0KE GT(0),0 ID 

•90 RETURN IM 

•99 REM ROUTINE TO PLAY SOUNDS WHEN SHIFT 

IS PRESSED KO 

•100 PRINT "PRESS SHIFT TO HEAR SOUND"; DB 
•110 IF PEEK(653)=0 THEN 110 GL 

•120 GOSUB 20: GOTO 100 EI 

•898 REM ROUTINE TO SET UP VARIABLES A J 
•899 REM SET UP SOUND CONTROL ADDRESSES LB 
•900 FL(0)=54272:FH(0)=54273:GT(0)=54276: 



AD(0)=54277:SR(0)=54278 LD 
•905 FOR 1=1 TO 2:X=I*7:FL(I)=FL(0)+X:FH( 

I)=FH(0)+X:GT(I)=GT(0)+X:AD(I)=AD(0)+X MG 

•906 SR(I)=SR(0)+X:NEXT BE 

•909 REM SET VOLUME ADDRESS GJ 

•910 VU54296 FN 

•990 RETURN IM 

COMPLEX GUNSHOT (C-64) 

•1 REM SOUND EFFECTS CA 

•2 REM COMPLEX GUNSHOT NA 

•3 REM (NOTE THAT LINES K/j AND ABOVE ARE 

"SUPPORT"~LINES 20-90 MAKE THE SOUND) KA 
•10 GOSUB 900: GOTO 100 10 

•20 POKE AD(1),5:P0KE SR(1) ,53:P0KE FL(1) 

,30:P0KE FH(1),30 pj 

•25 POKE AD(0),5:P0KE SR(0),53 :POKE FH(0 

),250 NG 

•30 POKE VL,15:PRINT "." CJ 

•40 POKE GT(1),129:F0R 1=0 TO 29:NEXT:P0K 

EGT(0),17 AG 

•50 FOR 1=225 TO 25 STEP -25:P0KE FH(0),I 

:NEXT LF 

•60 POKE GT(1).0:P0KE GT(0),0 ID 

•90 RETURN IM 

•99 REM ROUTINE TO PLAY SOUNDS WHEN SHIFT 

IS PRESSED KO 

"100 PRINT "PRESS SHIFT TO HEAR SOUND"; DB 
•110 IF PEEK(653)=0 THEN 110 GL 

•120 GOSUB 20: GOTO 100 EI 

•898 REM ROUTINE TO SET UP VARIABLES AJ 
•899 REM SET UP SOUND CONTROL ADDRESSES LB 
•900 FL(0)=54272:FH(0)=54273:GT(0)=5A276: 

AD(0)=54277:SR(0)=54278 LD 

•905 FOR 1=1 TO 2:X=I*7:FL(I)=FL(0)+X:FH( 

I)=FH(0)+X:GT(I)=GT(0)+X:AD(I)=AD(0)+X MG 
•906 SR(I)=SR(0)+X:NEXT BE 

•909 REM SET VOLUME ADDRESS GJ 

•910 VL=54296 FN 

•990 RETURN IM 

GUNSHOT (VIC 20) 

•1 REM SOUND EFFECTS OF 

•2 REM GUNSHOT (VIC VERSION) GJ 

•10 GOSUB 9r/j:G0T0 U/i JL 

•20 POKE FR(0),0:POKE FR(1).0:POKE FR(2), 

0:POKE FR(3),115 OB 

•30 POKE VL, 15: PRINT "." AM 

•45 FOR 1=15 TO STEP -1:P0KE VL.I:POKE 

FR(3),P(7f>+3*I):NEXT NO 

•60 FOR 1=0 TO 2: POKE FR(I),0:NEXT U 
•90 RETURN IM 

•99 REM ROUTINE TO PLAY SOUNDS WHEN SHIFT 

IS PRESSED FN 

•K/j PRINT "PRESS SHIFT"; PD 

•110 IF PEEK ( 653 )=0 THEN 110 GF 

•120 GOSUB 20: GOTO 100 EK 

•898 REM ROUTINE TO SET UP VARIABLES JF 



•899 REM SET UP SOUND CONTROL ADDRESSES CF 

•900 DIM FR(3),P(127) BI 
•910 FR(0)=36874:F0R 1=1 TO 3:FR(I)=FR(I- 

1)+1:NEXT BC 

•920 FOR 1=0 TO 127:P(I)=I+128:NEXT IC 

•929 REM SET VOLUME ADDRESS GI 

•930 VU36878 GP 

•990 RETURN IM 

HELICOPTER (VIC 20) 

•1 REM SOUND EFFECTS OF 

•2 REM HELICOPTER (VIC VERSION) GH 
•10 GOSUB 900: GOTO 100 JL 

•20 POKE FR(0),0:POKE FR(1),0:P0KE FR(2), 

0:POKE FR(3),P(50) EP 

•30 POKE VL.O KE 

•40 FOR 1=0 TO 15:P0KE VL,I:NEXT DG 
•45 FOR I=fJ TO 2: NEXT FI 

•50 POKE FR(3),60:FOR 1=15 TO STEP-1:P0 

KE VL,I:NEXT GB 

•60 FOR 1=0 TO 3: POKE FR(I),0:NEXT NE 
•90 RETURN IM 

•99 REM ROUTINE TO PLAY SOUNDS WHEN SHIFT 

IS PRESSED FN 

•100 PRINT "PRESS SHIFT TO STOP" KK 
•110 PRINT".";: IF PEEK(653)>0 THEN END LI 
•120 GOSUB 20: GOTO 110 EP 

•898 REM ROUTINE TO SET UP VARIABLES JF 
•899 REM SET UP SOUND CONTROL ADDRESSES CF 
•900 DIM FR(3),P(127) BI 

•910 FR(0)=36874:F0R 1=1 TO 3:FR(I)=FR(I- 

1)+1:NEXT BC 

•920 FOR 1=0 TO 127:P(I)=I+128:NEXT IC 
•929 REM SET VOLUME ADDRESS GI 

•930 VL=36878 GP 

•990 RETURN JM 

SPACE GUNSHOT (VIC 20) 
•1 REM SOUND EFFECTS OF 

•2 REM SPACE GUNSHOT (VIC VERSION) MD 
•10 GOSUB 900: GOTO K/j JL 

•20 POKE FR(0),0:POKE FR(1),0:P0KE FR(2), 

OiPOKE FR(3),U5 OB 

•30 PRINT "." AI 

•45 FOR 1=15 TO STEP -1.5: POKE VL,I:X=P 

(7fj+3*I):P0KE FR(3),X OF 

•50 POKE FR(0),450-X: NEXT: POKE FR(3),0 PH 
•55 FOR 1=1 TO 9 STEP 3: POKE VL,I:NEXT BK 
•60 FOR 1=0 TO 3:P0KE FR(I),0:NEXT NE 
•90 RETURN IM 

•99 REM ROUTINE TO PLAY SOUNDS WHEN SHIFT 

IS PRESSED FN 

•K/J PRINT "PRESS SHIFT"; PD 

•110 IF PEEK(653)=0 THEN 110 GF 

•120 GOSUB 20: GOTO K/j EK 

•898 REM ROUTINE TO SET UP VARIABLES JF 
•899 REM SET UP SOUND CONTROL ADDRESSES CF 
•900 DIM FR(3),P(127) BI 
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•910 KR(0)-3{j8 74:FOR 1=1 TO 3:FR(I)=FR(I- 

1)+1:NEXT BC 

•92U FOR 1=0 TO 127:P(I)=I+128:NEXT IC 
•929 REM SET VOLUME ADDRESS GI 

•930 VL= 36878 GP 

•990 RETURN IM 

BOINK (VIC 20) 

•1 REM SOUND EFFECTS OF 

■2 REM BOiNK (ViC VERSION) KH 

•10 GOSUb 900: GOTO 100 JL 

•20 POKE FR(0),PC20):P0KE FR(1),0:P0KE FR 

(2),0:POiCE FR(3),F(20) EL 

•30 PRINT ".'* Al 

•40 FOR 1=15 TO STEP -1:P0KE VL,I:NEXT: 

POKE FR(3),0 CO 

•50 FOR 1=1 TO 15 STEP 2:P0KE FR(0),P(100 

+I):FOKE VL,I:NEXT CI 

•60 FOR 1=0 TO 3: POKE FR(I),0:NEXT:POKE V 

L,0 HL 

•90 RETURN IM 

•99 RF>1 ROUTINE TO PLAY SOUNDS WHEN SHIFT 



IS PRESSED FN 

•100 PRINT "PRESS SHIFT"; PD 

•ilO IF PEEK(653)=0 THEN 110 OF 

•120 GOSUB 20: GOTO 100 EK 

•898 REM ROUTINE TO SET UP VARIABLES JF 
•899 REM SET UP SOUND CONTROL ADDRESSES CF 

•900 DIM FR(3),P(127) BI 
•910 FR(0)=36874:F0R 1=1 TO 3:FR(I)-FR(I- 

1)+1:NEXT BC 

•920 FOR 1=0 TO 127:P(I)=I+128:NEXT IC 

•929 REM SET VOLUME ADDRESS GI 

•930 VL=36878 GP 

•990 RETURN IM 

SAWING WOOD (VIC 20) 

•1 REM SOUND EFFECTS OF 

•2 REM SAWING WOOD (VIC VERSION) ON 
•10 GOSUB 900: GOTO 100 JL 

•20 POKE FR(0),PCO):POKE FR(1),0:P0KE FR( 

2), 0: POKE FR(3),20 ND 

•30 POKE VL, 15: PRINT "." AM 

•45 FOR 1=0 TO 5: POKE VL,5:P0KE VL,15:F0R 

X=0 TO INT(3*RND(9)):NEXT:NEXT FD 
•50 FOR 1=15 TO STEP-1:P0KE VL,I:NEXT KD 
■55 FOR 1=1 TO 15:P0KE VL,I:FOR X=0 TO 2: 

NEXT: NEXT FP 

•60 FOR 1=0 TO 2:P0KE FR(I),0:NEXT U 
•90 RETURN IM 

•99 REM ROUTINE TO PLAY SOUNDS WHEN SHIFT 

IS PRESSED FN 

•100 PRINT "PRESS SHIFT"; PD 

•110 IF FEEK(653)=0 THEN 110 GF 

•120 GOSUB 20: GOTO 100 EK 

•898 REM ROUTINE TO SET UP VARIABLES JF 



•899 REM SET UP SOUND CONTROL ADDRESSES CF 

•900 DIM FR(3),P(127) BI 
•910 FR(0)=36874:FOR 1=1 TO 3:FR(I)=FR(I- 

1)+1:NEXT BC 

•920 FOR 1=0 TO 127:P(I)=I+128:NEXT IC 

•929 REM SET VOLUME ADDRESS GI 

•930 VL=36878 GP 

•990 RETURN IM 

SOUHDARAMA 

FROM PAGE 27 

30 PRINr'[CLEAR]"SPC(14)"[RVS0N]S0UND-A- 
RAMA[RVSOFF]" AB 

40 PRINT" [DOWN] IF YOU'RE USING THE DOS W 
EDGE, PLEASE [3" "] DISABLE IT BY ENTERING 
" MK 

50 PRINTSPC(18)"[D0WN]@Q" ME 

60 PRINT" [ DOWN ]THIS WILL MAKE THE PROGRA 
M RUN FASTER." AA 

70 PRINT" [ DOWN ]THEN ENTER" :PRINTSPC( 15)" 
[DOWN] RUN 110" 
80 END 
100 REM SOUND-A-RAMA BY BRUCE BARTLE^FT 

OCT. 1984 
110 GOTO 1520 

120 REM ***COMPUTER TAPE RECORDER— MAIN 
LOOP*** 

130 GETC$(N):IFC$(N)=""THEN 130 
140 IFC$(N)="P"THENIFN>UNTHENPRINT"[CLEA 
R][D0WN][WHITE]PLAYING[3"."]":M=N:P0KES+ 
4,16:N=l:GOTO 180 DJ 

150 IFC$(N)="M"THENRUN110 LC 

160 P0KES+F,XT:D(N-UN)=TI:TI$="[6"0"]":P 
OKES+F,SE:POKES+UN,TN*VALCC$(N)) DC 
170 N=N+UN:GOTO 130 PL 

180 POKES+F.SE: POKES+UN ,TN*VAL(C$(N) ) : FO 



IJ 
IC 

LP 

FN 

OF 
FG 



RT=UNTaiT*D(N):NEXT:POKES+F,XT IE 

190 N=N+UN:IFN=MTHENRUN1860 JJ 

200 GOTO 180 CN 

210 REM ***DRUM MACHINE— MAIN LOOP*** HO 
220 GETA$ AL 

230 IFA$="M"THENPOKE650,0:RUN110 HB 
240 ONVAL(A$)GOTO 270, 300, 330, 360, 39 
0, 420 EI 

250 GOTO 220 BM 

260 REM ***HI HAT*** CC 

270 POKEFU,TF:POKEFL,TF:POKEAD,FV:POKESR 
,FV KE 

280 POKEW,WN : FORT=UNTOFY : NEXT: POKEW , WE : G 
OTO 220 FK 

290 REM ***SNARE*** PH 

300 POKEFU,SY:POKEFL, . :POKEAD, . :POKESR,T 
V JP 

310 POKEW ,WN : FORT=UNT0FY : NEXT : POKEW , WE : G 
OTO 220 FK 
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•320 REM ***HI TOM*** BD 

•330 POKEFU,ET:POKEFL, . :POKEAD, . :POKESR,T 
N:POKEV,TL:POKEV,Fr AC 

• 340 POKEW , SE : FORT=UNTOF Y : NEXT : POKEW . XT : G 
OTO 220 PH 

°350 REM ***LOW TOM*** GP 

•360 POKEFU,SX:POKEFL,,:P0KEAD,.:POKESR,T 
N:POKEV,TL:POKEV,FT KA 

• 370 POKEW , SE : FORT=UNTOFY : NEXT : POKEW , XT : G 
OTO 220 PH 

•380 REM ***K1CK DRUM*** MC 

•390 POKEFU,TE:POKEFL,. rPOKEAD, . rPQKESR, 
TR:POKEV,TH:POKEV,FT JM 

■400 POKEW,SE:FORT=UNTOFY:NEXT:POKEW,XT:G 
OTO 220 PH 

■410 REM ***CYMBAL*** GD 

■420 P0KEFU(2),TF:P0KEFL(2),TF:POKEAD(2), 
NN:P0KESR(2),NN jl 

■ 430 P0KEW( 2 ) , WN : F0RT=UNT0FY : NEXT : POKEW( 2 
), WE: GOTO 220 GP 

440 REM ***WINDING DOWN RECORD*** HB 

450 D=60 GB 

460 F0RN=1T01.75STEP.25:P0KEW,33:P0KEW,1 
7:P0KEFU,30*N-.04*D:F0RT=lT0DtNEXT JF 

470 D=D*1.05 KH 

480 IFD>70''/rHENFORFsl6TOrjSTEP-.08:POKEFU 



NB 

IH 

MC 

DJ 

JH 

NA 

BE 

MH 

NB 

BJ 

IK 

MM 

DN 

NB 

CM 

GC 

NK 

IF 



, F: NEXT: POKEW, 16:GOT0 1760 

•490 NEXTN 

■500 POKEW, 16: GOTO 460 

•510 REM ***PULVERIZER*** 

•520 POKEW, 19 
(•530 P0KESU,32 
^•540 FORN=1T020 

•550 F0RF=255T01STEP-N:P0KEFU,F:NEXTF 

•560 NEXTN 
1-570 POKEW, 18 
!*580 GOT0176O 

•590 RFJ1 ***DISINTEGRATOR*** 
.•600 P0KESL,67:P0KESa,12 
1*610 POKEW, 21 

•620 F0RR=1T03:F0RN=1T040 

• 630 F0RF=0TO255STEPN+5 : POKEFU , F : NEXTF 
•640 NEXTN, R 

i*650 POKEW, 20:G0T0 1760 
•660 REM ***0LD WASHING MACHINE*** 
•670 FORN=1T020 
•680 F0RF=1T064 

•690 POKEW, 17:P0KEFU,F:F0RT=1T015:NEXT:P0 
KEW,32:F0RT=1T05:NEXT 
•700 F=F*2: NEXTF, N: GOTO 1760 
•710 REM ♦♦♦ENERGY LEVELS*** 
•720 P0KEAD,9:P0KESR, 64+12 
1-730 P0KESU,3:P0KESL,220 
•740 POKEFL.IO 
•750 POKEW, 21 

• 760 FORT»lT025Vj : POKEFU , T/ K/j : NEXT 
•770 POKEW, 20: GOTO 1760 
•780 REM ***NERVOUS*** 



GL 

NA 

AK 

ND 

II 

OA 

MH 

EL 

NA 

IJ 

GD 

HD 

MN 

IH 

JB 

KL 

FH 

BE 

HF 

MH 

MP 

EL 
DC 
AJ 
NP 
NK 
LK 
IH 
GJ 
BE 
PD 



•790 POKEAD,63:POKEFU,4:POKEFL,10:P0KESU, 

•800 POKEW, 21 

•810 F0RN=1T025 

• 820 FORF=OT0255STEP20 : POKESL , F : NEXTF 

•830 F0RF=255T0<'jSTEP-20: POKESL, F: NEXTF 

•840 NEXTN 

•850 POKEW, 20:G0T0 1760 

•860 REM ***SPROING*** 

•870 POKESR, 15*16+9 

• 880 POKEW , 33 : POKEFU , 3 : F0RT=1T01 50 : NEXT 
•890 POKEFU, 67: POKEW, 19 
•900 F0RN=1T050 

• 910 F0RF=fjT050STEPN : POKESU , F : NEXTF, N 
•920 POKEW, 18:F0RT=lT05r/j:NEXT:GOT0 1760 
•930 REM ***FORCE FIELD*** 

•940 P0KEAD,13*16+15:P0KESR, 15*16+15 
•950 POKESU, 3: POKESL, 220 
•960 POKEFU, 23:P0KEFL,10:P0KEW, 21 
•970 F0RT=lT05r/j0:NEXT: F0RL=15T01STEP-.05 
:P0KEV,L:NEXT u 

• 980 POKEW , : FORT= 1T0500 : NEXT : POKEV , 1 5 : GO 
TO 1760 OC 

•990 REM ***INVOLUTION*** MG 

•ir//j POKEV, 15+32 :POKES+23, 239 PF 

•1010 POKEW, 33 IE 

•1020 F0RSP=ir/r0255 gH 

• 1030 F0RF=255T0rjSTEP-SP: POKEFU. F:P0KES+2 
2.F:NEXT jh 

•1040 NEXTSP CC 

•1050 POKEW, 32 :POKES+23,0: GOTO 1760 JK 

•1060 REM ***AVIARY*** HD 
•1070 F0RL00P-1T02:P0KEAD,119:F0RN=1T015: 

POKEW, 17 KA 

■ 1080 F0RF=INT( RND( . )*50)+5f/r0INT( RND( . )* 
1 50)+50STEP2 : POKEFU , F : NEXTF : POKEW ,16 JL 

■1090 NEXTN NA 

■1100 P0KEV,12:P0KEAD,15 EJ 

■1110 POKEW, 17: F0RN=1T0INT(RND(1)*10)+8:F 
ORF=5rjT0200STEP20 : POKEFU , F J J 

■1120 NEXTF, N el 

1 1 30 F0RN=1T0INT( RND( 1 )*10)+8 : FORF=50T02 
OOSTEPIO: POKEFU, F ib 

1140 NEXTF, N eL 

1150 POKEW, 16:P0KEV,15:NEXTL00P:G0T0 176 



•1160 REM ***GH0ST*** 
•1170 F0RN=1T02 

•1180 FORFS=K//rorjSTEP-5: POKEW, 17 
• 1 1 90 F0RF=30T05STEP-2 : POKEFU , F+FS : NEXT 
• 1 200 FORF=5T030STEP2 : POKEFU , F+FS : NEXT 
■1210 POKEW, 16 :NEXTFS,N 
•1220 POKEW, 16: GOTO 1760 
•1230 REM ♦**S0NG OF SATURN*** 
'1240 POKEAD, 16*11 :P0KESR,16*15+11:P0KES+ 
23, 239: POKEV, 15+32 mP 

'1250 FORN=1T010:POKEFU,INT(RND(1)*10)+1 AF 
'1260 F0RSW=f/r0INT(RND(l)*20fj) : POKEW, 129: 
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KE 
BP 

JA 
NC 
BA 
LK 
FB 
DB 
CN 



1 
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POKES+22,SW:NEXTSW HK 

•1270 P0KEW,128:F0RT=1T0400:NEXT KL 
•1280 NEXTN NA 

• 1290 PORT= ITOl 500 : NEXT : POKES+23 , : POKEV , 



EO 
JC 
LJ 
MI 



DG 
GC 

NA 
IG 
LC 
EI 
FJ 

KP 
BM 
FB 
GD 
AP 
JN 
EN 
JA 
DH 
IJ 



15;G0T0 1760 
•1300 REM ***KETCHUP SQUIRTS*** 
•1310 POKEAD, 15: POKES+23, 239: POKEV, 15+32 
•1320 F0RN=1T010 
•1330 P0KEW,33 

• 1340 F0RSW=r/r0150STEPINT(RND(l)*20)+3 
•1350 P0KES+22,SW:P0KEFU,INT(RND(1)*10):N 

EXT 

• 1 360 POKEW , 32 : FORT=1T0400 : NEXT 
•1370 NEXTN 

•1380 POKES+23, 0: POKEV, 15: GOTO 1760 
•1390 REM ***ELF LAUGH*** 

• 1400 F0RL=1T03 : F=L* ir>+50 
•1410 F0RN=1T010: POKEW, 33 
•1420 POK EFU, F :F0RT=1T03: NEXT: POKEW, 1 28 :F 

0RT=1T060:NEXT 
•1430 F=F-5 
•1440 NEXTN, L 
•1450 GOTO 1760 
•1460 REM ***THR0B*** 
•1470 POKEFU.l 
•1480 FORF=255TO180STEP-.O6 

• 1490 POKEFL , F : POKEW , 33 : POKEW , 17 : NEXT 
•1500 POKEW, 32: GOTO 1760 
•1510 REM ***INITIALIZATION*** 

• 1 520 PRINT" [ CLEAR ] " : P0KE53281 , 0: P0KE5328 
0,10 OH 

•1530 3=54272 :FORUf"/r024:POKES+L,.: NEXT OD 

• 1540 V=S+24 : W=S+4 : FU=S+1 : FL=S : AD=S+5 : SR= 
S+6:SL=S+14:SU=S+15: POKEV, 15 ME 

•1550 W(2)=S+11:FU(2)=S+8:FL(2)=S+7:AD(2) 

=S+12:SR(2)=S+13 BL 

•1560 PRINTSPC(10)"[D0WN][GREEN][3"*"][RV 

SON ] [ YELLOW] SOUND-A-RAMA [ RVSOFF ] [ GREEN ] [ 

3"*"][c 7]" JO 

•1570 PRINT: PRINT GJ 

•1580 PRINT" [RVSON]A[RVSOFF] COMPUTER TAP 

E RECORDER EE 

•1590 PRINT" [RVSON]B[ RVSOFF] DRUM MACHINE 

" PH 

•1600 PRINT" [RVSON]C[ RVSOFF] WINDING DOWN 

RECORD" MF 

•1610 PRINT" [RVSON]D[ RVSOFF] PULVERIZER" OJ 
•1620 PRINT" [RVSbN]E[ RVSOFF] DISINTEGRATO 

R" OF 

•1630 PRINT" [RVSON]F[ RVSOFF] OLD WASHING 

MACHINE" MA 

•1640 PRINT" [RVSON]G[ RVSOFF] ENERGY LEVEL 

S" CK 

•1650 PRINT" [RVSON]H[ RVSOFF] NERVOUS" NE 
•1660 PRINT"[RVSON]I[ RVSOFF] SPROING" OJ 
•1670 PRINT" [RVSON]J[ RVSOFF] FORCE FIELD" KK 
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1680 PRINT" tRVSON]K[ RVSOFF] INVOLUTION" CD 
1690 PRINT" [RVSON]L[ RVSOFF] AVIARY" LD 
1700 PRINT" [RVSON]M[ RVSOFF] GHOST" GN 
1710 PRINT" [RVSONJNt RVSOFF] SONG OF SATU 
RN" LF 

1720 PRINT" [RVSON]0[ RVSOFF] KETCHUP SQUI 
RTS" EF 

1730 PRINT" [RVS0N]P[ RVSOFF] ELF LAUGH" OE 
IE -1740 PRINT" [RVSON]Q[ RVSOFF] THROB" EN 
PE -1750 PRINT" [DOWN] [CYAN] [5" "]TYPE THE LE 
TTER OF YOUR CHOICE[c 7]" AL 

•1760 POKEFU,0:POKEFL,0: POKEAD, 15: POKES R, 
CK 

• 1 770 IFA>0ANDA<18THENPRINT" [ HOME ] " : FORN= 
lTOA+3 : PRINT : NEXT : PRINT" [ RVSON ] [ c 7 ] "CHR 
$(A+64)" [RVSOFF]" DA 

•1780 GETA$:IFA$=""THEN1780 LO 

•1790 A=ASC(A$)-64:IFA<10RA>17THEN 1780 PA 
• 1800 PRINT" [ HOME ] " : F0RN=lT0A+3 : PRINT : NEX 
T:PRINT"[RVS0N][YELLOW]"CHR$(A+64)"[RVSO 
FF]" DF 

•1810 IFA=16THEN 1400 IF 

•1820 IFA=17THEN 1470 KH 

• 1830 ON AGOTOl 860 , 1920 , 450 , 520 , 600 , 670 , 72 
, 790 , 870 , 940 , 1000 , 1070 , 1 1 70 , 1 240 , 1310 KC 

•1840 GOTO 1780 HI 

•1850 REM ***COMPUTER TAPE RECORDER INITI 

ALIZATION*** HC 

•1860 DIMC$(500),D(500):SE=17:XT=16:UN=1: 

F=4:TN=10:TT=13:N=l:S=54272:POKES+5,9 MC 

• 1870 P0KE53281 , 9 : P0KE53280 , 4 : PRINT" [ CLEA 
R]"SPC( 8) "[ RVSON ][ YELLOW ]COMPUTER TAPE R 
ECORDER[RVSOFF]" MH 

•1880 PRINT" [DOWN] [DOWN] [CYAN] PL AY MUSIC 
ON KEYS 1-9.": PRINT" [DOWN] HIT [RVSON]SPA 
CEt RVSOFF] WHEN DONE." FI 

•1890 PRINT" [ DOWN ]HIT 'P' TO PLAY THE REG 
ORDING." DL 

•1900 PRINT" [ DOWN ]HIT 'M' TO RETURN TO MA 
IN MENU.": GOTO 130 JM 

•1910 REM ***DRUM MACHINE INITIALIZATION* 
** NM 

•1920 TF=255:UN=1:TW=2:NN=9:FV=5:FY=50:SE 
=17:XT=16:WN=129:WE=128 DO 

•1930 SY=60:TV=245:ET=8:TL=12:FT=15:SX=6: 
TN=249:TR=244:TH=13:TE=3:POKE650,128 DH 

•1940 P0KE53281,4:P0KE53280,6:PRINT"[CLEA 
R]"SPC( 13) "[RVSON] [YELLOW] DRUM MACHINE[R 
VSOFFl" AG 

•1950 PRINT" [ DOWN ]1=HI HAT": PRINT" [DOWN] 2 
=SN ARE" : PRINT" [ DOWN ] 3=HI TOM" : PRINT" [ DOW 
N]4=L0W TOM" FP 

•1960 PRINT" [ DOWN ]5=KICK DRUM": PRINT" [DOW 
N ]6=CYMBAL": PRINT" [ DOWN ][ DOWN ]M = MAIN M 
ENU" KJ 

•1970 GOTO 220 EE 



FROM PAGE 36 G64 VERSION 

•110 PRINT"[CLEAR]":P0KE5328O,0:POKE53281 

'■^ 01 

•120 PRINT"[UP][RVSON][c 2] [12" "]tRVSOFF 

][sEP][14" "][c *][RVS0N][12" "]" AE 
•130 PRINT"[UP][RVS0N][11" "][RVSOFF][sEP 

][16" "][c *][RVS0N][11" "]•■ HP 

•140 PRINT"[UP][RVS0N][10" "][ RVSOFFlFsEP 

][18" "][c *][RVS0N][10" "]" FF 

•150 PRINT"[UP][RVS0N][9" "] [RVSOFFlFsEP] 

[20" "J[c *][RVS0N]i9" "]" DN 

•160 PRINT"[UP][RVS0N][8" "] [RVSOFFlf sEPl 

[22" "][c *][RVS0N][8" "]" FD 

•170 PRINT"[UP][RVS0N][7" "][RVS0FF][sEP] 

[24" "][c *][RVS0N][7" "]" LP 

•180 PRINT"[UP][RVS0N][6" "][RVSOFF][sEP] 

[26" "][c *][RVS0N][6" "]" FF 

•190 PRINT"[UP][RVS0N][5" "][RVS0FF][9EP1 

[28" "][c *][RVS0N][5" "]" DN 

•200 PRINT"[UP][RVS0N][4" "] [RVSOFF][sEPl 

[BLACK][3" "][c N] [c H][s -][c N][9 M] 
[c H][s 0][s M] [s 0][s P][c N] [c H][ 
c 0] [s L] [s N][c H][3" "][c 2][c *][RV 
S0N][4" "]" Dj 

•210 PRINT" [ UP ][RVS0N][ BLACK] [4" "][RVSOF 

F][BLACK][4" "][c L][s N][s M][c H][s -] 

[c L] [s M][c H][s L][s N][c L][s L][s @ 

][c L][s N][s M][c H][c U][c N][s L][c H 

][s P][c G][4" "][RVS0N][4" "]" HE 
•220 PRINT"[UP][RVSON][c 2][4" "][c *][RV 

S0FF][30" "][RVS0N][sEP][4" "]" BM 
•230 PRINT"[IJP][RVS0N][5" "][c *][RVSOFF] 

[28" "][RVS0N][sEP][5" "]" BF 

•240 PRINT"[UP][RVS0N][6" "][c *][RVSOFFl 

[26" "][RVS0N][sEP][6" "]" FH 

•250 PRINT"[UP][RVS0N][7" "][c *][RVSOFF] 

[24" "][RVS0N][sEP][7" "]" AP 

■260 PRINT"[UP][RVS0N][8" "][c *l[RVSOFFl 

[22" "][RVS0N][sEP][8" "]" FJ 

•270 PRINT"[UP][RVS0N][9" "][c *][RVSOFF] 

[20" "][RVS0N][sEP][9" "]" AN 

•280 PRINT"[UP][RVS0N][10" "][c *][RVSOFF 

][18" "][RVS0N][sEP][10" "]" FH 

•290 PRINT"[UP][RVS0N][11" "][c ♦][RVSOFF 

][16" "][RVSON][sEP][ll" "]" HP 

•300 PRINT"[UP][RVS0N][12" "][c *][RVSOFF 

][14" "][RVS0N][sEP][12" "]" FJ 

•310 PRINT" [ UP ][ BLUE ][ 40" [c +]"]" lA 

•320 PRIN1TAB(13)"BY THOMAS BUNKER" HO 

•330 PRINrrAB(12)"[D0WN]AND THE AHOY! STA 

FF" (JP 

•340 PR INT" [HOME]" 00 

•490 GOSUB 50000 IM 

•500 W$="WINDOW COMMANDS [ 3" [EP]"]0PEN - 
SYS"+STR$(OW)+"[EP]WRITE - SYS"+STR$(WW) EG 
•510 W$=W$+"[EP]CLOSE - SYS"+STR$(CW) HD 



•520 W%=20:H%=10:R%=5:C%=10 IB 

•530 SYS 49432 :F0RD=1T02000: NEXT KE 
•540 SYS 49440:F0RD=lT020f^/j;NEXT:G0T0530 PL 
•600 END ic 

•50000 ML=49408:REM * CAN BE RELOCATED TO 

ANY 256 BLOCK INCREMENT. BE 

•50010 HB=INT(ML/256):LB=(ML/256-HB)*256 IM 
•50020 FORN=f/rO510:READA:POKEML+N,A:NEXT GK 
•5r/j30 P0KEML+15,LB:P0KEML+16,HB:0W=ML+24 

:WW=ML+28:CW=ML+32: RETURN NE 

•5f/j70 DATA87, 215, 200, 210, 195,157,0,197,2 
32. 96, 189. 0,197, 96, 189, 0,193, 149, 112, 202 HK 
•50080 DATA16, 248, 48, 26, 169,0,240,6,169,6 
4,208,2,169,128,133.252,162,64,181,112,1 
57 jp 

•50090 DATA176, 2, 202, 208, 248. 162.17,208,2 
20.162,4,160,0,165,46,133,72,165,45.133, 
71 NK 

•50100 DATA165,72,197,48,208,10,165,71,19 
7,47,208,4,169,0,240,33,181.112,209,71,2 
08 GD 

•50110 DATA8, 169,128,200,209,71,240, 12, 13 
6, 165, 71, 24, 105, 7, 144, 217, 230,72. 208, 213 LL 
•50120 DATA224,0,240,20,2Vj,200,177,71,22 
4, 3, 176, 10, 201, 3, 176, 6, 169. 3, 224, 0,240, 2 FK 
•50130 DATA149,153.202,16,178,166,155,134 
,158,138,202,202,134,159,170,169,0,24,10 
1 KH 

•50140 DATA154,176,37,202,208,248,133,163 
,166,154,202,202,202,134,160,169,40,56,2 
29 BK 

•50150 DATA154,144,18,197,157,144.14,133, 
253,160,0,166,156,138,24,101,155,201,26 HM 
•50160 DATA144,11.162,64,189,176,2,149,11 
2, 202, 16, 248. 96, 165, 157, 166, 156, 240,9, 24 LD 
•50170 DATA105, 40, 144, 1,200, 202, 208, 247,1 
33,164,133,166,133,168,133,170,152,24.10 
5 EM 

•50180 DATA4. 133. 165, 133, 169, 105, 212, 133, 
167,133,171,165,127,133,123.133,118.36,2 
52 OL 

•50190 DATA48, 63, 112, 61, 166, 128, 232, 232,1 
34,119,162,0,160,0,165,154,133,172.177,1 
6^ KN 

•50200 DATA32, 117. 0,177, 166, 32, 117, 0,208, 
2,230,119,200,208.4,230,165,230,167,198 EH 
•50210 DATA172, 208, 231. 198, 158,240, 14. 152 

,24,101,253,144,4,230,165,230,167,168,24 JD 
•50220 DATA144,209,36,252,48,118,166,128, 
232,232,232,232,134,119,160,4,162,3.177 CC 
•50230 DATA71, 149,172,136,202,208,248,136 

.169, 112, 32, 117, 0,165, 160, 133, 172, 169, 64 FG 
•50240 DATA32, 117, 0,198,172, 16, 249, 192,0, 
208,70,169,110,32,117,0,169,93,32,117,0 GM 
•50250 DATA165,160,133,172,177,174,201,64 

.144,6,201,96,176,2,233.63.198,173,16,4 BP 
•50260 DATA230,173,169,32,201,28,208,8.13 
6, 165, 172, 208, 243, 2f/j. 208, 242, 32, 117, 0.2 
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00 CA -19 DATA94, 48, 37, 112, 37, 162, 0,160, 0,165, 8 

•50270 DATA198, 172, 16,216, 169,93,32, 117,0 8,133,42,177,38,157,52,3,177,40,157,152, 

,198,159,208,198,169,109,32.117,0,208,16 3,232 FD 

9 GL -20 DATA200, 198, 42, 208, 240*198, 89, 240, 143 

•50280 DATA169,125,32,117,0.166,128,232,2 ,152,24,101,95,168,208,225,208,117,160,4 

32,36,252,48,2,232,232,134,124,162,0,160 JL ,162 GH 

•50290 DATAO, 165, 154, 133, 172, 32, 122, 0,145 -21 DATA3, 177, 71, 149, 251, 136, 202, 208. 248, 

,168,36,252,48,8,173,134,2,145,170,24,14 136,169,112,157,161,2,232,165,93,133,42, 

4 CE 169 LE 

•50300 DATA6, 232, 32. 122, 0,145, 170, 232, 208 -22 DATA64, 157, 161,2,232, 198,42, 16,248,19 

,2, 230, 124, 200, 208, 4. 230. 169, 230, 171, 198 LB 2,0,208,75,169,110,157,161,2,232,169,93, 

•50310 DATA172,208,217,198,155,208,11,162 157 HJ 

,64,189,176,2,149,112,202,16,248,96,152 OJ .23 DATA161 ,2,232,165,93,133,42,177,253,2 

•50320 DATA24, 101. 253, 144, 4, 230, 169, 230,1 01,64,144,6,201,96,176,2,233,63,198.252, 

71,168,24,144,184 JF 16,4 DL 

•24 DATA230. 252, 169, 32, 201, 28, 208, 8, 136,1 

VIC 20 VERSION 65,42,208,243,200,208,242,157,161,2,232, 

•0 GOT050 PD 200 PC 

•1 HB=PEEK(56):LB=PBEK(55) ON -25 DATA198, 42, 16, 215, 169,93,157, 161,2,23 

•2 HB=HB-l:LB=LB-162:IFLB<0THENLB=LB+256 MG 2,198,92,208.195,169,109.157,161,2,232.2 

•3 POKE56,HB:POKE52,HB:POKE55,LB:POKE51,L 08,163 FF 

B:ML=256*H&fLB GB -26 DATA169, 125, 157, 161, 2, 162, 0,160,0, 165 

•4 F0RN=0T0417:READA:P0KEML+N,A:NEXT FC ,88,133,42,36,94,16,14,189,52.3,145,38,1 

•5 POKEML+22,LB:POKEML+23,HB:OW=ML+5:WW=M 89,152 IP 

L+9:CW=ML+13 NB -27 DATA3, 145, 40, 232, 200, 208, 12, 189, 161, 2 

•6 W$="OPEN SYS"+STR$(OW)+"[EP]WRITE SYS ,145,38,173,134,2,145,40,232,200,198,42, 

"+STR$(WW)+'*[EP]CLOSE SYS"+STR$(CW) EE 208 KL 

•8 W%=18:H%=5:R%=8:C%=2 JF "28 DATA222, 198. 89, 208, 1,96,152,24,101,95 

•9 RETURN IM ,168.24,144,205 CL 

.10 DATA87, 215, 200, 210, 195. 169, 0,240. 6,16 -50 PRINT" [CLEAR]" :P0KE36879. 232 CE 

9,64,208,2,169,128,133,94,162,4.160,0.18 -60 PRINT" [ UP ][RVSON][ YELLOW] [22" "]" CD 

9,0 MH -70 F0RA=1T01 7: PRINT" [ YELLOW ][RVSON][ UP ][ 

•11 DATA28, 133, 87, 165, 46, 133, 72, 165. 45, 13 4" "][RVSOFF][ BLACK] WINDOW VIC [YELLO 

3,71,165,72.197,48,208.10,165,71,197,47. W][RVS0N][4" "]":NEXT EE 

208 JE -75 PRINTTAB(3)"[WHITE]BY THOMAS BUNKER": 

•12 DATA4, 169, 0,240, 33. 165, 87, 209, 71, 208, PRINTTAB(4)"& AHOY! STAFF" IH 

8,169.128.200,209,71,240,12,136,165,71,2 ^80 GOSUB l:POKE646,2 JK 

4,105 BD ^90 SYS 0W:F0RD=1T02000:NEXT FK 

•13 DATA7. 144, 217, 230. 72, 208, 213, 224, 0,24 -100 SYS CW:FORD=1T02000:NEXT:GOT090 JC 

0,20, 200, 2f/-i, 177, 71, 224, 3. 176, 10. 201, 3,1 

76,6 LC 

•14 DATA169. 3, 224, 0,240, 2, 149, 87, 202, 16,1 

73,166,89,224,13,176,15,202,202,134,92.1 FROM PAGE 17 

66,89 MB First byte: COCO Last byte: C720 SYS to Start: 49152 

•15 DATA169, 0,24, 101, 88, 201, 96, 144, 3, 96, 2 COOO: A9 00 8D 21 DO A9 OB 8D 6B 



DISINTEGRAIOR 



40 , 139 , 202 , 208 , 243 . 133 , 96 , 166 , 88 , 202 , 202 
,202 KL 

•16 DATA134, 93, 169, 22, 56, 229, 88. 144, 234,1 
97,91,144,230,133,95.160,0,166,90,138,24 
.101 AG 

•17 DATA89, 201, 24, 176, 216, 165, 91, 166, 90, 2 
40 , 9 , 24 , 105 , 22 , 144 , 1 , 200 , 202 , 208 . 247 , 133 
,38 HA 

•18 DATA133, 40, 152, 24, 109, 136, 2, 133, 39, 15 
2,24,105,148,44,2,144,16,3,24,105,2.133. 
41,36 HP 

98 AHOY! 



COOS: 20 DO A9 93 20 D2 FF 20 49 

COlO: 4E C4 AO 00 A9 07 99 68 76 

C018: D9 C8 CO 28 DO F6 AO 00 OC 

C020: B9 D5 C6 99 6E 05 C9 20 6D 

C028: FO 13 8C C6 C6 A9 11 8D 8E 

C030: D3 C6 20 23 C4 A2 64 20 F9 

C038: B2 C3 AC C6 C6 C8 CO 19 8B 

C040: DO DE A9 21 8D D3 C6 20 03 

C048: C3 C3 AO 00 B9 E6 C5 99 70 

C050: 40 03 C8 CO CO DO F5 A9 4E 

C058: OD 8D F8 07 A9 OE 8D F9 32 



C060: 
C068: 
C070: 
CO 78: 
C080: 
C088: 
C090: 
^098: 

' C0A8: 
CO BO: 
C0B8: 
COCO : 
C0C8: 
CODO: 
C0D8: 
COEO: 
C0E8: 
COFO: 
C0F8: 
CI 00: 
C108: 
CUO: 
C118: 
CUO: 
C128: 
CI 30: 
C138: 
C140: 
C148: 
CI 50: 
C158: 
G160: 
C168: 
CI 70: 
C178: 
C180: 
C188: 
C190: 
C198: 
ClAO: 
C1A8: 
CI BO: 
C1B8; 
CICO: 
C1C8: 
CI DO: 
C1D8: 
ClEO: 
C1E8: 
CIFO: 
C1F8: 
C200: 
C208: 
C210: 
C218: 
C220: 
C228: 



07 A9 OF 80 FA 07 A9 08 61 


C230: 


C6 8D AD 07 EE DO C6 AD 6D 


8D 29 DO A9 01 8D IC DO 15 


C238: 


DO C6 C9 OF FO 03 4C 31 lA 


A9 02 8D 27 DO A9 OD 8D E5 


C240: 


CI A9 00 8D DO C6 A9 00 7A 


25 DO A9 06 8D 26 DO A9 4C 


C248: 


8D 15 DO EE C7 C6 AD C7 AE 


07 8D 28 DO A9 00 8D 10 55 


C250i 


C6 8D 9F 07 A9 A2 85 FB 19 


DO A9 01 8D 17 DO A9 Bl D4 


C258: 


A9 C5 85 FC 20 34 C3 A9 OC 


8D C7 C6 A9 B3 8D CC C6 2B 


C260: 


11 8D D3 C6 20 C3 C3 A2 E3 


A9 09 8D CF C6 A9 00 8D A6 


C268: 


FF 20 B2 C3 A2 FF 20 B2 74 


D4 C6 A9 BO 8D C8 C6 8D 41 


C270: 


C3 A2 FF 20 B2 C3 A2 FF 10 


C9 C6 8D CA C6 8D CB C6 78 


C278: 


20 B2 C3 A9 C5 85 FB A9 A9 


A9 00 8D DO C6 A9 EE 85 9D 


C280: 


C5 85 FC 20 34 C3 CE CF 7F 


FB A9 C6 85 FC 20 34 C3 BF 


C288: 


C6 FO 03 4C 31 CI A9 00 2C 


20 E4 FF C9 OD DO F9 A9 11 


C290: 


8D 15 DO A9 98 85 FB A9 71 


63 85 FB A9 C4 85 FC 20 BE 


C298: 


C5 85 FC 20 34 C3 AD CB 72 


34 C3 A9 77 85 FB A9 C4 D9 


C2A0: 


C6 49 80 8D 06 04 AD CA 41 


85 FC 20 34 C3 A9 C2 85 65 


C2A8: 


C6 49 80 8D 07 04 AD C9 49 


FB A9 C4 85 FC 20 34 C3 E5 


C2B0: 


C6 49 80 8D 08 04 AD C8 51 


A9 ED 85 FB A9 C4 85 FC F2 


C2B8: 


C6 49 80 8D 09 04 A9 30 BD 


20 34 C3 A9 C2 85 FB A9 AO 


C2C0: 


8D OA 04 AO 00 A9 01 99 41 


C4 85 FC 20 34 C3 A9 28 2A 


C2C8: 


06 D8 C8 CO 05 DO F6 A9 A7 


85 FB A9 C5 85 FC 20 34 C7 


C2D0: 


OD 20 D2 FF A9 84 85 FB 80 


C3 A9 53 85 FB A9 C5 85 3F 


C2D8: 


A9 C5 85 FC 20 34 C3 20 03 


FC 20 34 C3 AO 00 A9 AO 10 


C2E0: 


E4 FF C9 59 FO 07 C9 4E F8 


99 CO 07 A9 OB 99 CO DB 64 


C2E8: 


DO F5 20 74 A4 4C 8B CO 84 


C8 CO 28 DO Fl AD C7 C6 DO 


C2F0: 


A9 81 8D D3 C6 EE D4 C6 CE 


8D 9F 07 AD CC C6 8D BF EA 


C2F8: 


20 C3 C3 CE D4 C6 CE CC A6 


07 A9 00 8D 15 DO 20 42 B6 


C300: 


C6 AD CC C6 C9 BO FO 11 84 


C3 B9 A6 C6 8D 00 DO B9 3B 


C308: 


AD CC C6 8D BF 07 A9 00 47 


AE C6 8D 10 DO A9 32 8D 8D 


C310: 


8D 15 DO AD IF DO 4C 31 9E 


01 DO A9 01 8D 15 DO 8C C4 


C318: 


CI A9 93 20 D2 FF A9 00 B3 


C6 C6 20 E4 FF 8D CD C6 05 


C320: 


8D 15 DO A9 00 8D D3 C6 65 


AE CE C6 A9 07 9D D2 DA 98 


C328: 


EE D4 C6 20 C3 C3 CE D4 FD 


8E CE C6 AD IF DO 20 BB FD 


C330t 


C6 4C 8E C2 AO 00 Bl FB E2 


C3 AE CF C6 20 B2 C3 AE B6 


C338: 


FO 07 20 D2 FF C8 4C 36 6E 


CE C6 A9 OE 9D D2 DA 8E 97 


C340: 


C3 60 20 97 EO A5 8E C9 FA 


CE C6 AD IF DO 29 01 FO C6 


C348: 


20 BO 05 AO 00 4C 88 C3 57 


03 4C FO C2 AD CD C6 C9 8F 


C350: 


C9 40 BO 05 AO 01 4C 88 86 


20 DO 03 20 5B C4 C9 31 B7 


C358: 


C3 C9 60 BO 05 AO 02 4C EA 


90 CO C9 39 BO BC AC C6 C5 (^ 
C6 D9 BE C6 DO B4 B9 A6 A4 M 


C360: 


88 C3 C9 80 BO 05 AO 03 50 


C368: 


4C 88 C3 C9 AO BO 05 AO CI 


C6 8D 02 DO B9 B6 C6 8D 8C 


C370: 


04 4C 88 C3 C9 CO BO 05 4D 


10 DO A9 C2 8D 03 DO A9 01 


C378: 


AO 05 4C 88 C3 C9 EO BO 12 


03 8D 15 DO 20 BB C3 20 E6 


C380: 


05 AO 06 4C 88 C3 AO 07 6C 


BF C3 AD IE DO AE CF C6 IE 


C388: 


8C Dl C6 AD D2 C6 CD Dl 94 


20 B2 C3 AD IE DO 29 01 IE 


C390: 


C6 FO AF AD Dl C6 8D D2 9E 


FO EA AD 01 DO 8D 05 DO 87 


C398: 


C6 8C C6 C6 A2 00 AC C6 8F 


AD 00 DO 8D 04 DO A9 04 5F 


C3A0: 


C6 FO 08 E8 E8 E8 E8 E8 EC 


8D 15 DO A9 81 8D D3 C6 9F 


C3A8: 


88 DO F8 8E CE C6 AC C6 92 


20 23 C4 EE C8 C6 AD C8 DD 


C3B0: 


C6 60 AO 00 C8 DO FD CA DA 


C6 C9 BA FO 06 8D AF 07 6F 


C3B8: 


DO F8 60 EE 01 DO 60 CE D2 


4C 34 C2 A9 BO 8D C8 C6 AB 


C3C0: 


03 DO 60 20 4E C4 A9 OF EO 


AD C8 C6 8D AF 07 EE C9 33 


C3C8: 


8D 18 D4 A9 FO 8D 06 D4 46 


C6 AD C9 C6 C9 BA FO 06 80 


C3D0: 


A9 OE 8D Dl C6 AD D3 C6 F6 


8D AE 07 4C 34 C2 A9 BO E8 


C3D8: 


8D 04 D4 A9 19 8D 01 D4 65 


8D C9 C6 AD C9 C6 8D AE A8 


C3E0: 


A9 Bl 8D 00 D4 AD Dl C6 E4 


07 EE CA C6 AD CA C6 C9 A8 


C3E8: 


8D 18 D4 A2 32 20 B2 C3 CE 


BA FO 06 8D AD 07 4C 34 94 


C3F0: 


AD Dl C6 8D 20 DO AD D4 38 


C2 A9 BO 8D CA C6 AD CA DC 


C3F8: 


C6 FO 06 AD Dl C6 8D 21 AB 

AHOY! 99 



IMPORTANT! 



C400: 


DO 


CE 


D3 


C6 


AD 


D3 


C6 


8D 


10 


C408: 


04 


D4 


EE 


D3 


C6 


CE 


Dl 


C6 


Dl 


C410: 


AD 


Dl 


C6 


DO 


CO 


20 


4E 


C4 


IB 


C418: 


A9 


OB 


8D 


20 


DO 


A9 


00 


8D 


82 


C420: 


21 


DO 


60 


20 


4E 


C4 


A9 


OF 


5E 


C428: 


8D 


18 


D4 


A9 


70 


8D 


05 


D4 


24 


C430: 


A9 


FA 


8D 


06 


D4 


AD 


D3 


C6 


85 


C438: 


8D 


04 


D4 


A9 


09 


8D 


01 


D4 


B4 


C440: 


A9 


9F 


8D 


00 


D4 


A2 


C8 


20 


77 


C448: 


B2 


C3 


20 


4E 


C4 


60 


AO 


00 


F2 


C450: 


A9 


00 


99 


00 


D4 


C8 


CO 


19 


OB 


C458: 


DO 


F6 


60 


20 


E4 


FF 


C9 


20 


6F 


C460: 


DO 


F9 


60 


93 


11 


11 


11 


11 


63 


C468: 


11 


11 


11 


11 


11 


11 


11 


11 


FO 


C470: 


11 


11 


11 


11 


11 


11 


00 


12 


E8 


C478: 


IC 


20 


20 


92 


9A 


CI 


12 


IC 


Fl 


C480: 


20 


20 


20 


20 


92 


9A 


CI 


12 


02 


C488: 


IC 


20 


20 


20 


20 


92 


9A 


CI 


14 


C490; 


12 


IC 


20 


20 


20 


20 


92 


9A 


6C 


C498: 


CI 


12 


IC 


20 


20 


20 


20 


92 


9B 


C4A0' 


9A 


CI 


12 


IC 


20 


20 


20 


20 


AB 


CAA8: 


92 


9A 


CI 


12 


IC 


20 


20 


20 


26 


C4B0 


20 


92 


9A 


CI 


12 


IC 


20 


20 


2E 


C4B8 


20 


20 


92 


9A 


Gl 


12 


IC 


20 


36 


C4C0 


20 


00 


12 


IC 


20 


20 


20 


20 


8F 


C4C8 


20 


20 


20 


20 


20 


20 


20 


20 


C9 


C4D0 


20 


20 


20 


20 


20 


20 


20 


20 


Dl 


C4D8 


20 


20 


20 


20 


20 


20 


20 


20 


D9 


C4E0 


20 


20 


20 


20 


20 


20 


20 


20 


El 


C4E8 


20 


20 


20 


20 


00 


12 


IC 


20 


B7 


C4F0 


20 


05 


31 


IC 


20 


20 


20 


20 


E3 


C4F8 


05 


32 


IC 


20 


20 


20 


20 


05 


Dl 


C500 


. 33 


IC 


20 


20 


20 


20 


05 


34 


09 


C508 


IC 


20 


20 


20 


20 


05 


35 


IC 


FA 


C510 


: 20 


20 


20 


20 


05 


36 


IC 


20 


08 


C518 


: 20 


20 


20 


05 


37 


IC- 


20 


20 


11 


C520 


: 20 


20 


05 


38 


IC 


20 


20 


00 


F9 


C528 


: 12 


9A 


20 


20 


20 


20 


20 


20 


95 


C530 


: 20 


20 


20 


20 


20 


20 


20 


20 


31 


C538 


: 20 


20 


20 


20 


20 


20 


20 


20 


39 


C540 


: 20 


20 


20 


20 


20 


20 


20 


20 


41 


C548 


: 20 


20 


20 


20 


20 


20 


20 


20 


49 


C550 


: 20 


20 


00 


12 


99 


4C 


45 


56 


24 


C558 


: 45 


4C 


20 


30 


30 


9A 


20 


20 


45 


C560 


: 20 


20 


20 


20 


99 


53 


43 


4F 


60 


C568 


: 52 


45 


20 


30 


30 


30 


30 


30 


11 


C570 


: 9A 


20 


20 


20 


20 


20 


20 


20 


EB 


C578 


: 99 


4C 


49 


56 


45 


53 


20 


30 


E6 


C580 


: 30 


13 


05 


00 


11 


11 


50 


4C 


87 


C588 


: 41 


59 


20 


41 


47 


41 


49 


4E 


A4 


C590 


: 3F 


20 


5B 


59 


2F 


4E 


5D 


00 


7F 


C598 


: 93 


05 


92 


53 


43 


4F 


52 


45 


41 


C5A0 


: 20 


00 


13 


05 


92 


11 


11 


11 


9E 


C5A8 


: 11 


ID 


ID 


ID 


ID 


ID 


ID 


ID 


85 


C5B0 


: ID 


ID 


ID 


ID 


ID 


ID 


4C 


45 


FO 


C5B8 


: 56 


45 


4C 


20 


43 


4F 


4D 


50 


FO 


m AHi 


9Y! 



















coaes. uo not enier mem! rages Hf ana oo expiain inese coaes 
oy! programs. Refer to Ihese pages before ertefing any programsl 


C5C0: 


4C 


45 


54 


45 


00 


13 


11 


11 


21 


C5C8: 


11 


11 


ID 


ID 


ID 


ID 


ID 


ID 


99 


C5D0: 


ID 


ID 


ID 


ID 


ID 


ID 


ID 


20 


BC 


C5D8: 


20 


20 


20 


20 


20 


20 


20 


20 


D9 


C5E0: 


20 


20 


20 


20 


20 


00 


OA 


02 


8D 


C5E8: 


80 


OA 


02 


80 


4A 


02 


84 


FA 


CI 


C5F0: 


02 


EC 


FA 


02 


BC 


FF 


03 


FC 


69 


C5F8: 


DF 


CF 


DC 


D7 


CF 


5C 


F5 


FD 


7D 


C600: 


7C 


3F 


FF 


FO 


OF 


57 


CO 


OF 


E2 


C608: 


57 


CO 


OF 


57 


CO 


OF 


57 


CO 


6E 


C610: 


OF 


57 


CO 


03 


FF 


00 


00 


FC 


37 


C618: 


00 


00 


10 


00 


00 


10 


00 


00 


38 


C620: 


00 


00 


00 


00 


00 


00 


00 


10 


30 


C628: 


00 


00 


38 


00 


00 


7C 


00 


00 


DC 


C630- 


FE 


00 


00 


FE 


00 


00 


38 


00 


66 


C638' 


00 


7C 


00 


00 


00 


00 


00 


00 


B4 


C640 


00 


00 


00 


00 


00 


00 


00 


00 


40 


C648 


00 


00 


00 


00 


00 


00 


00 


00 


48 


C650 


00 


00 


00 


00 


00 


00 


00 


00 


50 


C658 


00 


00 


00 


00 


00 


00 


00 


00 


58 


C660 


00 


00 


00 


00 


00 


00 


OE 


01 


6F 


C668 


PC 


IF 


A3 


FC 


3F 


FF 


F8 


7F 


DC 


C670 


FF 


80 


7F 


FF 


CO 


FF 


FF 


FO 


22 


C678 


FF 


FF 


F8 


7F 


FF 


FC 


3F 


FF 


2D 


C680 


: FC 


3F 


FF 


FC 


IF 


FF 


F2 


IF 


EA 


C688 


. FF 


FO 


3F 


FF 


F8 


7F 


FF 


FC 


2E 


C690 


: 7F 


FF 


FE 


3P 


FF 


FF 


3F 


FF 


8D 


C698 


: FF 


7F 


FF 


FF 


FF 


9F 


FE 


FC 


B3 


C6A0 


: OF 


9E 


F8 


07 


OE 


FF 


20 


48 


C4 


C6A8 


: 70 


98 


CO 


E8 


11 


39 


00 


00 


A5 


C6B0 


: 00 


00 


00 


00 


01 


01 


00 


00 


B2 


C6B8 


: 00 


00 


00 


00 


07 


07 


31 


32 


2A 


C6C0 


: 33 


34 


35 


36 


37 


38 


00 


00 


03 


C6C8 


: 00 


00 


00 


00 


00 


00 


00 


00 


C8 


C6D0 


: 00 


00 


00 


00 


00 


04 


20 


09 


FD 


C6D8 


: 20 


13 


20 


09 


20 


OE 


20 


14 


97 


C6E0 


: 20 


05 


20 


07 


20 


12 


20 


01 


80 


C6E8 


: 20 


14 


20 


OF 


20 


12 


13 


11 


A2 


C6F0 


: 11 


11 


11 


11 


11 


11 


11 


11 


79 


C6F8 


: 11 


11 


11 


11 


11 


11 


11 


ID 


8D 


C700 


: ID 


ID 


ID 


ID 


ID 


ID 


ID 


9A 


66 


C708 


: 50 


52 


45 


53 


53 


20 


12 


52 


IB 


C710 


: 45 


54 


55 


52 


4E 


92 


20 


54 


A6 


C718 


: 4F 


20 


53 


54 


41 


52 


54 


00 


17 


C720 


: FF 


20 

















FROM PAGE 46 

• 49VJ0 PRINT" [CLEAR ] " : POKE53280 , 9 : P0KE532 

81,7 JJ 

•49010 F0RA=1T05: PRINT: NEXT BF 

•49020 PRINTTAB(10)"[c 2] SCREEN DUMP UTIL 

ITY" PO 

•49030 PRINTTAB(19)"[DOWN]BY":PRINTTAB(12 

)"[ DOWN] ALFRED J. BRUEY" OP 



I- 



■49040 PRINTTAB(12)"[7"[DOWN]"][ BLACK IFOR 

AHOY MAGAZINE" CJ 

■49050 PRINTTAB(7)"[IX)WN]CC) ION INTERNA! 
lONAL INC." MD 

49060 PRIN1TAB( 5)" [DOWN] [DOWN ][ PURPLE] [R 
VSON]PRESS 'Fl' TO DUMP THIS SCREEN" LG 
49070 GETA$:IFA$<>"[F1]"THEN49070 DA 
49080 GOSUB 5f/j30 IL 

49090 PRINT" [CLEAR] [WHITE ]":POKE53280,0: 
P0KE53281,6:F0RA=1T08:PRINT:NEXT EL 
49100 PRINT" IF YOU WISH TO USE THIS UT 
ILITY AS A SUBROUTINE IN YOUR OWN" AG 

•49110 PRINTTAB(24)"[UP]PR0GRAM, REMOVE L 
INES 49[3"0"] TO 5f/;30 AND THEN ADD THE" LE 

•49120 PRINT"REMAINING LINES TO YOUR OWN 
PROGRAM." 

•49130 END 

•50000 : 

•50010 REM ** SCREEN DUMP SUBROUTINE ** 

•5r/j20 : 

•50030 0PEN4,4 

•50040 FORI=1023 TO 2f/j6 STEP 40 

•50050 PR$="" 

•50060 FOR J=I+1 TO 1+40 

•50070 V=PEEK(J) 

•50080 IF V>127 THEN 50130 

■50fj90 IFV<=31 OR V>=96 THEN V1=V+64:GOT0 
50120 AG 

•50100 IF V>=32 AND V<=63 THEN V1=V:GOT0 
50120 

■50110 V1=V+128 

•50120 PR$=PR$+CHR$(V1):G0T0 50190 
•50130 IF V<=159 OR V>=224 THEN V1=V-64:G 
OTO 50160 PK 

■50140 IF V>=192 AND V<=223 THEN Vl=V:GCyr 
50160 CC 

■50150 V1=V-128 NA 

•50160 IF LEN(PR$)=0 THEN PR$=CHR$(18)+CH 
R$(V1)+CHR$(146):G0T0 50190 FM 

50170 IFRIGHT$(PR$, 1 )<>CHR$( 146)THENPR$= 
PR$+CHR$(18)+CHR$(V1)+CHR$(146):GOT05019 
'■-' FE 

50180 PR$=LEFT$(PR$,LEN(PR$)-1)+CHR$(V1) 
+CHR$(146) NO 

50190 NEXTJ MM 

502r/j PRINT#4,PR$ MG 

50210 NEXTI:CL0SE4 OH 

50220 RETURN IM 



KC 
IC 

DI 
EL 
DI 
DG 
OK 
LM 
KB 
GD 
NH 



KC 
OB 
GC 



'^j^m^^^^ 



FROM PAGE 13 
•10 REM *♦* FORMATTER *** 
•15 IF PEEK(686)THEN386 
•20 GOTOlOr/j 



FE 
LH 
FC 



•95 REM ***FLIP SCREENS*** MP 

•K/J X=PEEK(T):IFP<>ETHEN125 JP 

•102 SYS49391 jci 

•105 P=I:P0KEA,49:P0KET+B,P:P0KE4,76:S=H LA 
•106 P0KE56333,127:P0KE788,196:P0KE789,19 

4:P0KEA+B.129:REM START RASTER NC 
•107 PRINT" [ CLEAR ][ DOWN ][ RIGHT ][RVS0FF][B 

LACK]TYPE CHARACTER TO": PRINT" [RIGHT] REP 

ROGRAM ON LOWER CL 

•109 PRINT" [ RIGHT ]PORTION OF SCREEN AND": 

PRINT" [RIGHT] PRESS F4. PRESS ANY F HM 
•111 PRINT" [RIGHT] KEY TO INPUT CHANGES.": 

PRINT" [ DOWN ][ RIGHT ]PRESS F6 TO RETURN GG 
■113 PRINT" [ RIGHT ]T0 SCREEN 1 [DOWN]": POKE 

T,X: RETURN pK 

•124 REM SCREEN @ BANK 2, 34816($88r/j)AND 
CHARS @ $80f/j OR $9''/jO PG 

•125 POKEA+B,240:POKE788,49:POKE789,234:P 
OKE56333,129:REM RASTER OFF U 

•126 P=E:SYS494 24 :POKER+H.SC: POKER, BC:POK 

EA , CS : S= . QQ 

•127 P0KET+B,P:P0KE4,80:P0KET,X:PRINT"rH0 
ME]": RETURN jh 

•149 REM **REPROGRAM*** EE 

•150 G=PEEK(3):X=PEEK(T) BK 

•151 F0RJ=.T05:P0KE218+J,136:P0KE224+J,13 
7: NEXT jq 




You're invited to the 
biggest party at 
Valley Forge since 
George brought 
the boys! 

M.A.R.C.A.' 

The biggest Commodore User Fair in the US. 

July 26, 27, 28 

Valiey Forge Convention Center, Valley Forge PA 

• Speakers! • Seminars! • Hanging out! 

• Fun! • Vendors! • Great Buys! 

• Social Events! • Fun! 

Areas Tours available. 

Meet the names you've only read about. J(m Butterfleld. 
Dick Immers. Len Llndsey. Many, many morel Ask the ques- 
tions yoo need answers to Have 2'h days of non-stop 
Commodore fun! Bring the whole family. Lots to do. See 
And buy Bargains galore! 

Pre-registratlon by July 1: 2'/= days $25 M.A.R.C.A. Mem- 
bers SlSJ^amily Rates available. 

For pre-registration Information: M.A.R.C.A., 

(304)267-8912 

DON'T MISS THE PARTY! 
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•152 M=32768+G*C: PRINT" [HOME ]"TAB( 27) "[11 
" "][HOME]" IC 

•153 FORJ=.T07:Z=128:G=PEEK(M+J):PRINTTAB 
(27)"[3" "]"; LF 

• 1 5A F0RK=HTOC : PRINT" [ CYAN ] 0" ; : IFG>=ZTHEN 
G=G-Z:PRINT"[RED][LEFT]*"; NN 

•155 Z=Z/B: NEXT: PRINT" ":NEXT:PRINTTAB(27 

)"[13" "]" lA 

•156 PRINT" [ HOME ][ DOWN ]"TAB( 30); EP 

•157 POKEW,.:SYS50222:POKET,X: RETURN ME 

•200 SC=-SC*(SC<N)+H:POKER+H,SC:POKE254,S 

C: RETURN: REM SCREEN COLOR NJ 

• 225 BC=-BC* ( BC<N )+H : POKER , BC : RETURN : REM 
BORDER COLOR IE 

•250 B1=-B1*(B1<N)+H:R1=B1-H:P0KER+B,R1:R 
ETURN:REM REGISTER 1 BK 

•275 B2=-B2*(B2<N)+H:R2=B2-H:POKER+3,R2:R 
ETURN:REM REGISTER 2 NC 

• 300 B3=-B3*(B3<N)+H : R3=B3-H : POKER+4 , R3 : R 
ETURN:REM REGISTER 3 JO 

•325 EB=.:POKE53265, PEEK (53265)0R64: REM E 

XTENDED BACKGROUND ON JE 

•326 SYS49980:F=PEEK(253)-132:ONFGOSUB200 

, 250 , 275 , 300 , 350 , 380 , 100 KE 

•328 IFF=5THENRETURN PJ 

•329 IFF=CTHENEB=H:G0T0400 CN 

•330 G0T0326 CL 

•350 P0KE53265, PEEK ( 53265) AND191: RETURN :R 

EM EXTENDED BACKGROUND OFF JB 

•365 MC=.:POKEA-B,PEEK(A-B)ORN:REM MULTIC 

OLOR ON AC 

•367 SYS49980:F=PEEK(253)-132:0NFG0SUB200 

,250,275,375,328,380,100 JL 

•370 IFF=4THENRETURN PE 

•372 IFF=CTHENMC=H:GOT0400 FM 

•373 G0T0367 CO 

•375 P0KE53270,PEEK( 53270) AND239: RETURN :R 

EMMULTICOLOR OFF FO 

•380 IFSTHENG0SUB150: RETURN: REM CHARACTER 

SET SWITCH MO 

•381 0=ABS(0-CN):CS=33+0:P0KEA,CS: RETURN: 

REM FLIP CHARACTER SETS KG 

•385 REM ***MENU*** OE 

•386 P=140:E=136:I=P:R=53280:H=1:BC=H:SC= 

15:A=53272:CS=33:T=646:B=2 DN 

■388 X=11:W=198:C=8:N=16:CN=4:BL=53265:P0 

KE254,SC BB 

•390 D=3002 MJ 

•395 POKE56576,5:IFPEEK(684)=.THENGOSUB12 

6 ; PRINT" [ CLEAR ] " ; : P0KE684 , H AL 

•400 X=PEEK(T) : IFP=ETHENSYS49391 :CS=PEEK( 

A) AM 

• 401 IFSTHENPOKEA+B , 240 : P0KE788 , 49 : P0KE78 

9,234:P0KE56333,129:REMTURN OFF RASTER LO 
•402 IFMCTHENG0SUB375:MC=H LA 

•403 IFEBTHENG0SUB350:EB=H JB 

•408 P0KE56576,7:P0KET+B,4:REM DEFAULT SC 

REEN FD 



•410 POKEBL,PEEK(BL)AND239:POKEA, 21: POKER 

+H, 15: POKER, H:POKET,0 HD 

•411 PRINT" [CLEAR]"TAB(57)"MENU":PRINT"[D 

0WN][3"[RIGHT]"]1 INSTRUCTION SCREENS BH 
•413 PRINT" [DOWN ][ 3" [ RIGHT]" ]2 FORMATTING 

SCREEN EI 

•414 PRINT" [ DOWN ][ 3" [ RIGHT ]"]3 CHARACTER 

REPROGRAMMING SCREEN LM 

•415 PRINT" [DOWN] [3" [RIGHT]" ]4 MAKE BASIC 

PRINT STATEMENTS MH 

•416 PRINT" [DOWN] [3" [ RIGHT] "]5 DISPLAY NE 

W SCREEN (S) PC 

•417 PRINT" [DOWN ][ 3" [ RIGHT] "]6 DELETE PRO 

GRAM LINES PB 

•418 PRINT" [DOWN] [3"[RIGHT]"]7 MAKE CHARA 

CTER DATA STATEMENTS OD 

•419 PRINT" [DOWN ][ 3" [ RIGHT] "]8 SWITCH CUS 

TOM CHARACTER SET": PRINT" [DOWN] [3" [RIGHT 

]"]9 STOP PROGRAM FP 

•420 PRINTTAB( 50) "[BLUE] YOUR CHOICE [1-9] 

[SS]?":P0KEBL,27 EH 

•421 WAITW,H:G=PEEK(631)-48:P0KEW,.:IFG<H 

0RO9THEN421 DA 

• 422 0NGG0T0600 , 430 , 435 , 485 , 1 600 , 720 , 800 , 
950,428 AM 

•428 P0KE828,.:SYS828 DE 

•430 P0KE56576,5:G0SUB126:G0T0438 OD 
•435 POKE56576,5:POKER,BC:GOSUB105 IN 
•438 IFMCTHENGOSUB365 PG 

•440 IFEBTHENGOSUB325 PF 

•445 SYS49980:F=PEEK(253)-132 BH 

•450 0NFG0SUB200, 225,275, 365,325, 380, 100 KP 
•455 IFF=CTHEN400 AM 

•460 G0T0445 CL 

•480 REM ***SCREEN SCAN*** NF 

•485 PRINT"[CLEAR]"TAB(92)"NEW PRINT LINE 

S CL 

•490 PRINTTAB(205)". . .SPACE TO CONTINUE 

"SPC(58)". . . ANY OTHER FOR MENU KL 
•495 POKEW, . :WAIT198,H:IFPEEK(631)<>32THE 

N410 MA 

• 500 PRINT" [ CLEAR ] "D"G0SUB6 [ 3"0" ] 2 : PRINTC 
HR$(19)TAB(140)PEEK(58)*256+PEEK(57)"; PM 

•501 PRINT" :WAITW,H: POKEW,. ":P0KE679,X KI 

• 502 D=D+B; PRINTD"P0KER+H , "SC" [ LEFT ] : POKE 
R , "BC" [ LEFT ] : POKEA , "CS" [LEFT ] : SC="SC" [ LE 
FT]:BC="BC; JB 

• 503 PRINT" [ LEFT ] : POKET , "X" [ LEFT ] : PRINTCH 
R$(147);":SYS49457:D=D+B:M=4 EP 

•504 IFMCTHENPRINTD"P0KE53270, PEEK (53270) 
0R16:P0KER+2,"R1"[LEFT]:P0KER+3,"R2; PJ 
•505 IFMCTHENPRINT"[LEFT]:MC=H":D=D+B NI 

• 506 IFEBTHENPRINTD"POKE53265 , PEEK (53265) 
0R64:P0KER+2,"R1"[LEFT]:P0KER+3,"R2; EJ 

•507 IFEBTHENPRINT"[LEFT] :POKER+4,"R3"[LE 
FT]:EB=H":D=D+B MH 

•508 PRINT"515 D="D" [ LEFT ] :EB="EB"[ LEFT] : 
MC="MC"[LEFT]:X="X JD 
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•509 IFEB0RMCTHENPRI^fT"PRI^fTCHR$(U7) :POK 
E218,4:RUN515":M=5:GOT0560 KF 

•510 PRINT"RUN515":GOT0560 NB 

•517 IFPEEK(2)THENPRINT"[CLEAR]"; :P0KE218 

•-^ OC 

•520 PRINTD"?"CHR$(34):D=D+2 DG 

•525 SYSA9482:IFPEEK(2)..THENM=5:GOT0540 OH 
•530 PRINT"515 D="D"t LEFT ] rEB«"EB"r LEFT] : 

MC="MC"[LEFT]:X="X ^ jD 

•535 PRINT"RUN515":M=6:GOTO560 DC 

•540 PRINTD"WAITW,H:G=P[s E](631):Prs OlW 

,.:IFG=82THENP[s 0]T,"X; FI 

•541 PRINT"! LEFT] :P[s 0]254.SC:GOT0438":D 
=D+2 ifp 

•545 IFMCTHENPRINTD"POKE53270,PEEK(53270) 
AND239:MC=.":D=D+2:M«M+1 HK 

■ 550 IFEBTHENPRINTD"POKE53265 , PEEK ( 53265 ) 
AND191:EB=.":D=D+2:M=M+1 DH 

•552 PRINTD"IFG<>32THENSC=M : BC=Z : ?CHR$( U 
7):G0TO4O8":D=D+2 IF 

■555 PRINT"390 D="D:PRINT"515":PRINT"RUN3 
86":IFPEEK(681)THENM=M+1 BP 

■560 F=631:G-13:P0KEF,19:F0RJ-1T0M:P0KEF+ 
J,G: NEXT: P0KE198,M+1: END DD 

595 REM ***INSTRUCTIONS*** IE 

600 POKEBL , PEEK ( BL) AND239 : POKER+H , H : POKE 
R,6:P0KEA,23 AJ 

602 PRINT" [CLEAR] [BLUE] [3" "][s 0][s N]r 
SS)[s F][s 0][s R][s M][s Ajfs T][SS][s 
A][s N][s D][SS][s R][s E][s P][s R][s 
][s G][s R][s A][s M][SS][s S][s C][s R] 
[s E][s E][s N][s S][SS]- EC 



•604 PRINTTAB(41)"F1 
•606 PRINTTAB(41)"F2 

ROUND COLOR ON/OF 
•608 PRINTTAB(41)"F3 

R COLOR REGISTER #1 



[s SjCREEN COLOR LF 
[s EJXTENDED BACKG 

PM 
[s B]0RDER COLOR 

BA 



•610 PRINTTAB(6)"WITH MULTICOLOR ([s MlFs 
C]) OR EXTENDED"SPC(8)"BACKGR0UND COLOR 
([s E][s B]) JO 

•614 PRINTTAB(41)"F4 = [s S]WITCH BETWEEN 
CUSTOM AND REGULAR LO 

•616 PRINTTABC 6) "CHARACTERS ON FORMAT SCR 

EEN OR ^f, 

•618 PRINTTAB(6)"ENABLE CUSTOM CHARACTERS 

0N"SPC(13)"REPR0GRAMMING SCREEN JH 

•620 PRINTrAB(41)"F5 = [s CjOLOR REGISTER 

#2 WITH [s M][s C] OR [s E][s B]" GM 

•622 PRINTTAB(41)"F6 = [s SJWITCH BETWEEN 
FORMATTING AND"SPC(11)"REPR0GRAMMING SC 
REEN AN 

•624 PRINTrAB(41)"F7 = [s MJULTICOLOR ON/ 
OFF OR COLOR IG 

•626 PRINTTAB(6)"REGISTER #3 WITH [s EUs 
B]":POKEBL,27 ^ ^^ jH 

•628 PRINT"[DOWN][RIGHT]":FORJ-.T010:PRIN 
T"[UP][RIGHT][RED]F8 - [s MJENU" JB 

• 630 F0RG=HT060 : NEXT : PRINT" [ UP ] [ RIGHT ] [ RV 



S0N]F8 = [s M]ENU":F0RG=HT060: NEXT: NEXT NA 
•632 PRINT" [RIGHT] [BLUE] ([s S][s P][s A] 
[s CHs E] FOR MORE: [s A]NY OTHER FOR M 

•634 WAITW,H:POKEW,.:IFPEEK(631)=32THEN65 
6 pp 

•636 G0T0410 qj 

•656 POKEBL, PEEK (BL)AND239: PRINT" [CLEAR]" 
TAB(86)"[s F][s 0][s R][s M][s A][s T][S 
S][s S][s C][s R][s E][s E][s N][SS][s C 
][s 0][s L][s 0][s R][SS][s C][s H][s A] 
[s N][s G][s E][s S]" GP 

•658 PRINrrAB(83)"[s T]0 CHANGE ALL OF A 
CERTAIN COLOR p^ 

•660 PRINTrAB(3)"T0 ANOTHER COLOR: BN 
•662 PRINTTAB(45)"A. [s S]ET CURSOR TO CO 

LOR YOU WISH"SPC(12)"T0 CHANGE. MM 
•664 PRINrrAB(45)"B. [s P]RESS [s C][s T] 

[s R][s L] AND C KEYS DH 

•666 PRINTrAB( 8) "TOGETHER, ([s T]HE CURS 

OR WILL"SPC( 13) "DISAPPEAR,) EJ 

•668 PRINTTAB(45)"C. [s P]RESS [s C][s T] 

[s R][s L] OR [s C][s 0][s M][s M][s 0][ 

s D][s 0][s R][s E] ' DI 

•670 PRINTTAB(8)"KEY AND THE NEW COLOR KE 

Y"SPC(15)"T0GETHER. aM 

•672 PRINTTAB(50)"([s A]NY KEY FOR MENU.) 

": POKEBL, 27 pjj 

•674 WAITW,H:P0KEW,.:GOT041O CD 

•719 REM ***DELETE*** pA 

•720 POKER+H, 3 : POKER, B:POKEA, 23: POKEBL. P 

EEK(BL)AND239 pC 

•722 PRINT"[CLEAR]"TAB(207)"[BLUE][s D][s 
E][s L][s E][s T][s E] [s P]ts R][s 0][ 

s G][s R][s A][s M][SS][s P][s R][s I][8 

N][s T] [s L][s I][s N][s E][s S] MG 
•724 PRINTrAB(86)"l [s A]LL NEW PRINT LIN 

ES LI 

•726 PRINTTAB(46)"2 [s S] ELECT FROM TO EN 

FD 

•728 PRINrrAB(46)"3 [s S] ELECT FROM TO SE 
LECT END BP 

•729 PRINTrAB(46)"4 [s D]ELETE ALL [s B][ 
s U][s T] NEW LINES DP 

•730 PRINTTAB(46)"5 [s RjETURN TO MENU FL 
•732 PRINTrAB(49)"([s PjRESS NUMBER DESIR 
ED)": POKEBL, 2 7 qI 

•734 WAITW,H:G=PEEKC631)-48:P0KEW,.:IFG<H 
0RO5THEN734 Dp 

■ 736 IFD=3002THEN IFG<4THENPRINTTAB(81 ) " [ R 
ED][RVS0N][s N]0 LINES TO DELETE, [s A] 
NY KEY FOR MENU.":GOT0685 OA 

738 POKET,X:M=. :F=D:Z=3002:UZ:0NGGOT077 
3,740.740,900,410 ip 

740 PRINT"[CLEAR][DOWN][DOWN][RIGHT][RIG 
HT][s E]NTER STARTING LINE NUMBER"; DI 
745 INPUTL:IFLAND10RL<3002THENPRINT"[RIG 
HT] [ RIGHT] # UNEVEN OR TOO SMALL :";: GOT07 
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45 HB 

•750 IFG=2THENZ=L:GOT0765 CK 

•755 Z=D:PRINT"[DOWN] [RIGHT] [RIGHTl[s E]N 

TER ENDING LINE NUMBER"; AG 

•760 INPUTD:IFDAND10RD>ZTHENPRINT"# UNEVE 

N OR TOO BIG:";:GOT0760 JH 

• 765 IFL>=DTHENPRINT" [ CLEAR ] [ DOWN ] [ A" [ RIG 

HT]"][RED][RVSON][s S]TARTING # TOO BIG. 
[s S]TART OVER.[RVSOFF][c 4 ] " : D=F : G0T07 

22 KN 

773 F=D-L: PRINT" [CLEAR]" ;:IFF<1ITHEN785 HB 

775 F0RJ=LT0L+12STEP2:PRINTJ:NEXT; KM 

776 PRINT"772 L="J" [ LEFT ] :D="D"[ LEFT] :Z« 
"Z:PRINT"RUN772":M=9:GOT0560 KO 

785 IFF=.THEN787 AJ 

786 F0RJ=LT0DSTEP2:PRINTJ:M=M+1:NEXT LD 

787 PRINT"772":PRINT"390 D="ZtPRINT"RUN3 
86":M=M+3:G0T0560 BA 
795 REM***CHARACTER DATA*** BF 
800 SYS49280:IFPEEK(B)THEN820 PH 
805 PRINT" [CLEAR ]"TAB(203)"[c 4] NO CHARA 
CTERS REFROGRAMMED AS YET FF 
810 PRINT" [ DOWN ][ DOWN ][ 3" [ RIGHT] "][c 4]( 
PRESS ANY KEY TO RETURN TO MENU) CD 
815 WAITW,H:P0KEW,.:P0KE254,SC:G0TO41O DD 
820 PRINT"[CLEAR]6[3"0"]6 F0RJ=1T0"PEEK( 

2 ) : PRINT"RUN825" : PRINT" 60010" : M=3 : GOTO 
560 OK 

825 INPUTZ OD 

830 SC=PEEK(50432+PEEK(2)-1) :CH=32768+8* 
SC LI 

835 FOR J= . T07 : C$=C$+STR$ ( PEEK ( CH+ J ) ) : NEX 
T MH 

840 F0RK=2T0LEN(C$):Q$=MID$(C$,K,1):IFQ$ 
=" "THENQ$="," FN 

845 D$=D$+Q$:NEXT GL 

850 PRINT" [ CLEAR ]"Z"DATA"SC"E LEFT ],"D$ DE 
855 Z=Z+2:P0KE2,PEEK(2)-1:IFPEEK(2)=.THE 
NPRINT"RUN386":M=2:GOT0560 AD 

860 PRINT"RUN825": PRINT" "Z:M=3:G0T0560 PG 
895 REM ***DELETE OLD*** DC 

900 POKER+H , 3 : POKER , B : PRINT" [ CLEAR ] "TAB( 
170)"[BLACK][s D][s E][s L][s E][s T][s 
E][SS][s 0][s L][s D][SS][s P][s R][s 0] 
[s G][s R][s A][s M] GL 

•904 PRINTTAB(42)"[s A]S WRITTEN, NEW SCR 
EENS WILL DISPLAY OL 

•906 PRINT"[ RIGHT] [RIGHT] ON SCREEN AT 348 
16 WITH [s R][s 0][s M] IMAGE AT IP 

•908 PRINT" [ RIGHT] [RIGHT]36864 AND PROGRA 
MMABLE CHARACTERS AT"SPC(4)"32768. AD 

•914 PRINTTAB(42)"[s T]0 DISPLAY &/0R SAV 
E ON DEFAULT AI 

•916 PRINT" [ RIGHT ][ RIGHT ]SCREEN, DELETE L 
INE 3[3"0"] AND DELETE BJ 

•918 PRINT" [ RIGHT ][ RIGHT ]0R REVISE [s P]0 
KE 53272 VALUES TO POINT IC 

•920 PRINT" [ RIGHT ][ RIGHT ]T0 YOUR [s R][s 
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A][s M] CHARACTER SET. NI 

•924 PRINTTAB(47)"([s H]IT ANY KEY TO PRO 

CEED) 
•926 PRINTTAB(7)"('[s R]* TO RETURN TO ME 

NU.) 
•928 WAITW,H:G=PEEK(631):POKEW,.:IFG=82TH 

EN410 
• 930 SYS491 52 : POKER+H , 10 : PRINTTAB" [ CLEAR ] 

"TAB(250)"[RVS0N][RED] OLD PROGRAM GONE! 
ti 

•935 PRINTTAB(124)"[BLUE][s T]0 RECOVER 
LD PROGRAM, ENTER IN"SPC(48) "DIRECT MODE 



NO 



JA 



AM 



HB 



JA 



BE 
CG 

HD 



GM 



PN 



• 940 PRINT" [ DOWN ] [ DOWN ] [ BLACK ] P0KE43 , 1 : PO 
KE641,1:P0KE44,8:P0KE642,8:RUN":END 
•945 REM ***SWITCH CUSTOM SETS*** 

• 950 POKER+H , 7 : POKER , 1 : POKEA , 23 : POKEBL , PE 
EK(BL)AND239 

•952 PRINT" [CLEAR ][c 4][D0WN]"TAB(251)"[s 

S][s W][s I][s T][s C][s H][SS][s C][s 

U][s S][s T][s 0][s M][SS][s S][s E][s T 
]» 

•954 PRINTTAB(86)"1. [s R][s E][s G][s U] 
[s L][s A][s R][SS][s C][s H][s A][s R][ 
s A][s C][s T][s E][s R][SS][s S][s E][s 
T]" 

•956 PRINTTAB(46)"2. [s U][s P][s P][s E] 
[s R][SS][s A][s N][s D] LOWER [s C][s A 
][s S][s E][SS][s S][s E][s T]"SPC(53)"3 
. [s R][s E][s T][s U][s R][s N][SS][s T 
][s 0][SS][s M][s E][s N][s U] 

•960 PRINTTAB(87)"([s P][s R][s E][s S][s 
S][SS][s N][s U][s M][s B][s E][s R][SS 
][s F][s 0][s R][SS][s C][s H][s 0][s I] 
[s C][s E])":P0KEBL,27 

•962 WAITW.H:G=PEEK(631)-48:P0KEW,.:IFG<H 
0RO3THEN962 

•963 0NGG0T0965,966 

•964 GOT0410 

•965 POKE685,208:SYS49213:CN=4:G0TO968 

•966 P0KE685,216:SYS49213:CN=6 

•968 PRINT" [ CLEAR ]"TAB( 242)". . . [s 0][s 
K], SETS SWITCHED" :FORTT=.T01000: NEXT 

•970 O=.:GOSUB381:G0T0410 

•999 REM ***MACHINE LANGUAGE*** 

• 1000 P0KE53281 , 7 : P0KE53280 , 9 : PRINT" [ CLEA 

R]"; 

•1004 PRINT"[CLEAR]"SPC(162)"[c 2][RVS0N] 
[4" "]":PRINT"[c 2] [RIGHT] [RIGHT ][RVS0N] 
[RVSOFF] [RVS0N][sEP] [c *]" 

•1006 PRINT" [ RIGHT ][ RIGHT ][RVSON][ 4" "][R 
VSOFF] [RVS0N][4" "][c *]" 

•1008 PRINT" [ RIGHT ][ RIGHT ][RVS0N] [RVSOFF 
] [RVSON] [RVSOFF] [RVSON] [RVSOFF] 
[RVSON] [c *] [RVSOFF] [ RVSON ][sEP]" 

•1010 PRINT"[ RIGHT] [RIGHT] [RVSON] [RVSOFF 
] [RVSON] [RVSOFF] [RVSON] [4" "][RVSOF 
F][sEP] [RVSON] [c *][sEP] [sEP] [c *]" IN 



ME 



CK 

PC 
OA 
CJ 
PI 
HO 

EE 
AA 
OA 

HP 



LP 



PF 



DN 



•1012 PRINTTAB(5)"[c *][RVSON] [RVSOFFIT 
sEP][RVSON] [RVSOFF] [RVSON][c ♦] [RVSO 
FF][c *][sEP][RVSON] [RVSOFF] [RVSON][ 
6""]" ^^MJ 

•1014 PRINTTAB(9)"[RVS0N] [RVSOFF] [RVSO 
N] [RVSOFF] [RVS0N][5" "] [RVSOFF] [RV 
SON] [6" "]" DG 

•1016 PRINTTAB(13)"[RVS0N] [RVSOFF] [RVS 
ON][SS] [RVSOFF] [RVSON] [RVSOFF] [RVS 
ON] [RVSOFF] [RVSON] [RVSOFF] [ RVSON ][ 
4""]" ^%A 

•1018 PRINTTAB( 17)" [RVSON] [RVSOFF] [RVS 
ON] [RVSOFF] [ RVSON ][SS][ RVSOFF] [RVSO 
N] [RVSOFF] [RVSON] [RVSOFF] [3" '•][RVSO 
N][3" "][c *]" HK 

•1020 PRINTTAB(23)"[RVS0N][SS][RVS0FF] [ 
RVSON] [RVSOFF] [RVSON] [3" "] [RVSOFF] [ 
RVSON] [RVSOFF] [RVSON] " OE 

•1022 PRINTTABC 26) "[RVSON] [RVSOFF] [RVS 
ON] [RVSOFF] [3" "] [RVSON] [3" "] [RVSOFF] [ 
SEP]" BE 

•1024 PRINTTAB(29)"[RVSON][5" "][RVSOFF] 

[RVSON ][c ♦]":PRINTTAB(33)"[ RVSON] [RVS 
OFF] [RVSON] " EJ 

•1025 PRINTTAB(11)"BY MARIE COON &"SPC(25 
)"THE AHOY! STAFF" NN 

• 1026 PRINT: PRINT: PRINTTAB( 10) "[ BLUE ]ONE 
MOMENT PLEASE[3"."J" HH 

•1027 POKE52,124:POKE56,124:CLR:POKE53265 
'27 HA 

•1028 E$="BAD DATA":B=736:FORJ=.T031:READ 
A : POKEB+J , A : CK=CK+A : POKEB+J , A : NEXT JH 

•1030 IFCK<>5088THENPRINTE$: STOP: REM DATA 
lir// HI 

•1035 B=49152:F0RK=1T04:CK=. KJ 

• 1 040 FORJ= .T0255 : READA : POKEB+J , A : CK=CK+A 
:NEXT OB 

•1045 READC:IFCK<>CTHENPRINTE$" IN BLOCK" 
K"LINE"PEEK(64)*256+PEEK(63):ST0P EP 

•1050 B=B+256:NEXT EP 

•1055 CK=. :FORJ=.T0160:READA:POKE&+J,A:CK 
=CK+A:NEXT LD 

•1060 IFCK<>20606THENPRINTE$" IN BLOCK 5" 
iSTOP KK 

•1065 P0KE685,208:SYS49213:CLR:P0KE686,1: 
GOT0386 r^pj 

•1085 DATA144,5,28,159, 156.30,31, 158, 129, 

149,150,151,152,153,154,155 KB 

•1090 DATA208, 133, 156, 223,220, 158. 159, 222 

,193,213,214,215,216,217,218,219 HJ 
•1095 REM *** BLOCK 1 *** FD 

•1100 DATA169, 1,133, 87, 169, 8, 133. 88, 169,0 

,133,57,133,58,160,3 BE 

•1102 DATA177,87.201,11,176,24,133,58,136 

,177,87.133,57,160,0,177 OM 

•1104 DATA87, 72,200, 177,87, 133,88, 104, 133 

,87,160,3,208,226,165,87 GL 

•1106 DATA133,43.141,129,2,165,88,133,44, 



141,130.2,96,173,14,220 FK 

•1108 DATA41. 254, 141, 14, 220, 165, 1.41, 251, 
133,1,169.0,133,87.133 NF 

•1110 DATA89, 173, 173, 2. 133, 88, 169, 128, 133 
,90,162,8,160,0,177,87 BO 

•1112 DATA145,89, 136, 208, 249, 230,88, 230,9 
0,202,208,242,165,1,9,4 if 

•1114 DATA133, 1,173, 14, 220, 9.1, 141, 14. 220 

,169,128,141,138,2,96 OM 

•1116 DATA173,14,220,41,254,141,14,220,16 

5.1,41,251,133,1,169,0 JK 

•1118 DATA133.2,133,87,133,89,133,252.133 

,254,173,173,2,133,88,169 GL 

•1120 DATA128, 133, 90, 162, 0.160, 0,169, 8, 13 

3.253,133,251,177,87,209 LA 

•1122 DAT A89, 240, 2, 230, 252, 202, 240. 32, 200 

,198,251,208,240,165,252,240 HD 

•1124 DATA17,169,0, 133,252, 134,91, 166,2,1 

65,254,157,0,197,230,2 ME 

•1126 DATA166, 91, 230,254, 169,8,208,211,23 

0,88,230,90,198,253,208,216 JF 

•1128 DATA165,1,9,4,133,1,173,14,220,9,1, 

141,14,220,96,169 LH 

•1130 DATAO, 133,87, 133,89, 169, 216, 133,88, 

169.124.133,90,162,4,160,31556 HE 
•1132 : Di 

•1134 REM *** BLOCK 2 *** EM 

•1136 DATAO, 177,87, 145,89,136,208,249,230 

,88,230,90,202,208,242.96 AP 

•1138 DATA169,0, 133,87, 133,89, 169,216,133 

,88,169,124,133,90,162,4 dE 

•1140 DATA160, 0.177, 89, 145, 87, 136. 208, 249 

,230,88,230,90,202,208,242 JF 

•1142 DATA96, 169. 0,133, 251, 133, 253, 141. 17 

0,2,141,171,2,169,25,133 EI 

•1144 DATA2, 169,136,133,252, 169,124,133,2 

54,96,169,11,162,71,157,7 GO 

•1146 DATA216. 202, 208, 250, 169, 32. 162, 71,1 

57,7,4,202,208,250,169,8 LH 

•1148 DATA133,89,169,4,133,90.160,0,132,8 

8,173,171,2,240,13,133 DN 

•1150 DATA87, 169. 40, 56. 237, 171. 2, 133, 91, 7 

6,69,194.132,87,140,168 BF 

•1152 DATA2, 140, 169, 2, 169, 40, 133, 91, 177, 2 

51,201,32,208,45,238,168 MK 

•1154 DATA2,200, 198,91,208,242, 169,145, 16 

4.88,145,89,198,2,208,6 OA 

•1156 DATA169, 147,32,210,255,96,230,88,24 

,165,251,105,40,144,4,230 ED 

•1158 DATA252, 230, 254. 133, 251, 133, 253, 160 

.0,240.193,201,34,208,3,238 LB 

•1160 DATA168,2,173,168,2,240,17,132,87,1 

69,157,164.88,145,89,230 IC 

•1162 DATA88, 206, 168, 2, 208, 245, 164, 87, 177 

,253.41,15,205.167,2,240 CN 

•1164 DATA13, 141, 167, 2, 170, 189, 240, 2, 164, 

88,145,89,230.88,173,170 BK 

•1166 DATA2, 240, 17, 164, 87, 177, 251, 201, 128 
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,176,32,206,170,2,164,88,34517 FC 
•1168 : DI 

•1170 REM *** BLOCK 3 *** FJ 

•1172 DATA169, 210, 208, 15, 164, 87, 177,251,2 

01,128,144,15,238,170,2,164 MD 

•1174 DATA88, 169, 146,145,89,230,88, 164,87 

,177,251,41,127,201,34,208 PO 

•1176 DATA2, 169, 32, 164, 88, 145, 89, 230, 88,1 

98.91,240,101,230,87,165 AK 

•1178 DATA88, 201, 60, 144, 16, 200, 169, 34, 145 

,89,200,169,59,145,89,165 HN 

•1180 DATA87, 141, 171, 2, 96, 164, 87. 177, 251, 

201,32,208,7.238,169,2 IH 

•1182 DATA208,215,208,154,173,169,2,240,3 

1,240,147,173,170,2,240,11 OH 

•1184 DATA169,210,164,88.145,89,230,88,20 

6,170,2,169,32,164,88,145 AN 

•1186 DATA89, 230, 88, 206, 169, 2, 208, 245, 164 

,87,177,253,41,15,205,167 FJ 

•1188 DATA2, 240, 214, 164, 88, 141, 167, 2, 170, 

189,240,2,145,89,230,88 EI 

•1190 DATA208, 192, 169,34, 164,88, 145,89, 17 

3,169,2,208,5,200,169,59 EB 

•1192 DATA145,89, 198, 2, 208,6, 169, 59, 200,1 

45,89,96,24,165,251,105 JB 

•1194 DATA40, 144, 4, 230, 252, 230, 254, 133, 25 

1,133,253,169,0,141,171,2 OD. 

•1196 DATA141, 170, 2, 96, 169, 1,141, 25, 208,1 

62,130,160,12,173,18,208 PE 

•1198 DATA16, 4, 162, 1,164, 254, 142, 18, 208,1 

40,33,208,173,13,220,41 IK 

•1200 DATAl, 240, 3, 76, 49, 234, 76, 188, 254, 16 

9,0,133,89,165,209,133 CF 

•1202 DATA87, 24, 165, 210, 101, 4, 133, 88, 164, 

211,177,209,72,170,177,87,33915 IE 
•1204 : DI 

•1206 REM *** BLOCK 4 *** FC 

•1208 DATA133,91,173, 134,2,143,87,24, 177, 

209,105,128,145,209,230,89 MK 

•1210 DATA24, 165, 162, 105, 20, 133,90,32, 228 

,255,208,21,165,90,197,162 HL 

•1212 DATA208, 245, 165,89, 240, 220, 138, 145, 

209,165,91,145,87,198,89,240 LP 

•1214 DATA223, 170, 104, 164, 211, 145, 209, 165 

,91,145,87,96,32,233,194,138 OD 

•1216 DATA201, 133, 144, 25, 201. 138, 208, 14,1 

64,211,132,165,136,177,209,133 CN 
•1218 DATA3, 165, 214, 133, 166, 138, 201, 141,1 

76,3,133,253,96,41,127,201 EF 

•1220 DATA33, 144, 5, 173, 134, 2, 145, 87, 173,1 

41,2,201,4,240,6,138 KO 

•1222 DATA32,210,255, 208, 199, 165, 197,201, 

20,208,244,173,134,2,133,87 HE 

•1224 DATA32, 228, 255, 240, 251, 174, 141, 2, 22 

4,4,240,4,224,2,208,240 GD 

•1226 DATA162,15,221,224,2,240,8,202,208, 

248,221,224,2,208,225,134 KB 

•1228 DATA88, 169, 0,133, 89, 169, 216, 133, 90, 



162,4,160,0,177,89,41 LD 

•1230 DATA15, 197, 87, 208, 4, 165, 88, 145, 89,1 

36 , 208 , 24 1 , 230 , 90 , 202 , 208 OL 

•1232 DATA236,76, 60, 195,32, 210, 255,32,233 

.194,138,201,133,144,5,201 DK 

•1234 DATA141,176,1,96,169,2,141,134,2,13 

8,201,48,208,6,169,3 BA 

•1236 DATA141,134,2,138,41,127,201,13,208 

,34,169,17,32,210,255,164 JL 

•1238 DATA21 1,177. 209, 201, 32, 208, 4, 169, 14 

5,208,201,169,157,32,210,255,35397 NO 
•1240 : DI 

•1242 REM *** BLOCK 5 *** DP 

•1244 DATA164.211,177,209,201,32,208,243, 

169,29,208,184,201,17,240,12 GE 

•1246 DATA201,29,240,8,201,33,144,175,162 

,29,176,1,138,32,210,255 MI 

•1248 DATA164,211,177,209,201,32,208,159, 

24,138,105,128,208,150,169,0 IL 

•1250 DATA133,91,133,163,169,128,133,164, 

160,3,165,3,24,10,38,91 CI 

•1252 DATA136,208,250,133,163,24,165,164, 

101,91,133,164,24,160,30,162 CM 

•1254 DATAl, 32, 240, 255, 169, 2, 141, 134, 2, 32 

,196,195,169,69,133,87 DK 

•1256 DATA169,140,133,88,162,8,169.1,133, 

91,160,8,169,0,133,92 MJ 

•1258 DATA177, 87, 201, 48, 240, 6, 165,92,5,91 

,133,92,6,91,136,208 BL 

•1260 DATA239,165,92,145,163,230,163,208, 

2,230,164,24,165,87,105,40 IM 

•1262 DATA133,87,144,2,230,88,202,208,205 

,164,165,166,166,24,76,240,255 GE 
•1595 REM ***DISPLAY*** JB 

•1600 P0KE56576,5:G0SUB126:P0KER+H,15:P0K 

ER,12:POKEA,39 LE 

•1602 P0KEBL,PEEK(BL)AND239:PRINT"[CLEAR] 

[BLACK]"TAB(131)"[s N][s E][s W][SS][s S 

][s C][s R][s E][s E][s N][SS][s D][s I] 

[s S][s P][s L][s A][s Y]" OH 

•1603 PRINTTAB(84)"[s T]0 DISPLAY SUCCESS 

IVE SCREENS FI 

•1604 PRINT" [ 4" [ RIGHT] "]PRESS THE [s S][s 

P][s A][s C][s E] KEY. LJ 

•1605 PRINTTAB(44)"[s P]RESS 'E' TO RETUR 

N CONTROL TO AH 

•1606 PRINT" [ 4" [ RIGHT ]'*]THE FORMAT SCREEN 

AND ACTIVATE BI 

•1607 PRINT" [ 4" [ RIGHT ]"]THE CURSOR. DL 
•1609 PRINTTAB(44)"[s A]NY OTHER KEY WILL 

RETURN TO THE AB 

•1610 PRINT"[4"[RIGHT]"][s M]ENU, UNLESS 

THE LAST SCREEN IS LG 

•1611 PRINT" [4" [RIGHT] "JON DISPLAY, [s I 
]N THIS CASE, ANY MN 

•1612 PRINT" [ 4" [ RIGHT ]"]KEY BUT 'R* WILL 

RETURN TO THE"SPC(10)"MENU.":P0KEBL,27 EJ 

•1614 WAITW,H:G=PEEK(631):P0KEW,.:IFG<>32 
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THENPRINT"[ CLEAR ]":G0T0408 OF 

•300fj P0KE56576,5:P0KE648,136:P0KE53272,3 

7 DB 

•3001 W=198:H=1:R=53280:A=53272:T=646 LP 

•60r/j0 PRINT" [ CLEAR ]":P0KE646,X:SC=M:BC=Z 

:G0T0A08 pi 

• 60f/j2 POKEA , 37 : PRINT" [ CLEAR ] "TABC 46) "NEW 

^^SCREEN STARTS AT"SPC(60) "PROGRAM LINE # 

FI 
•60004 PRINTTAB(46)"(HIT ANY KEY FOR DISP 

LAY)": RETURN OP 

•60006 F0RJ=1T0 3 HP 

• 60008 READB : CH=32768+8*B : PRINTCH : F0RK= .T 

07:READA:P0KECH+K,A:NEXT:NEXT BJ 



FIDGIIS 

FROM PAGE 39 

•I REM"[c A][30"[s *]"][c S]" LE 

•2 REM"[s B][U" "JFIDGITS[12" "J[s B]" HD 
•3 REM"[s B] BY WALTER E. MEYERS I 985 f 3 

'* "][s B]" BN 

•4 RF^"[c Z][30"[s *]"][c X]" JI 

•5 POKE 56576, PEEK (56576) OR 3: POKE 53272 

.21: POKE 648, 4: PRINT "[CLEAR]": POKE 5328 

1,15 KJ 

•10 POKE 53280, 15:DIM B$(26) ,N0(26) ,F$(4) 

,M$(2):F0R 1=1 TO 129:READ A$:NEXT HJ 
•15 3=54272: GOTO lOVj IP 

•20 IF N<8 THEN LN=0:COU(N*4)+2: RETURN BJ 
•30 IF N<17 THEN NN=N-8:LN=8:C0L=(NN*4)+2 

: RETURN PK 

•40 NN=N-1 7 :LN=16:C0L=NN*4: RETURN IN 
•50 POKE 781,LN:P0KE 782,C0L:P0KE 783.0:8 

YS 65520: RETURN KJ 

•60 FOR C=S TO S+24:P0KEC,0: NEXT: RETURN LO 
•70 READ H,L.DR:POKE S+1,H:P0KE S,L:POKES 

+^.17 CJ 

•80 FOR T=l TO DR:POKE S+15,63:NEXT:P0KE 

S+4, 20: RETURN NI 

•90 N=INT(RND(0)*26)+1:RETURN PM 

•99 REM TITLE PAGE NK 

•K/J PRINT"[CLEAR]":GOSUB 60: FOR 1=1 TO 6 

: PRINT: NEXT: FOR J=l TO 3: FOR 1=1 TO 4 PH 
•110 PRINT F$(I) SPC(18) F$(I);:NEXT:NEXT 

:LN=11:C0L=18:G0SUB 50: PRINT B7$ DN 
•120 M=1:LL=8:N=12:F0R 1=1 TO 30:LN=6:C0L 

=18:G0SUB 50:PRINT M$(M) DB 

•130 LN=LL:C0L=12:G0SUB 50: PRINT WL$:C0U 

23:GOSUB 50: PRINT WR$ LC 

•140 GOSUB 90:HI=INT(N0(N)/256):L0«N0(N)- 

(HI*256):P0KE S+5,0:POKE S+6,240 HJ 
•150 POKE S+24,15:P0KE S+1,HI:P0KE S,LO:P 
OKE S+4, 17 AN 

•160 FOR T=l TO 50: NEXT: POKE S+4,16:LL=AB 
S(17-LL):M=ABS(3-M):NEXT FO 



•170 GOSUB 60: FOR T=l TO KXj:NEXT PA 

•299 REM INSTRUCTIONS HH 

•3V) PRINT "[CLEAR] [DOWN] [DOWN]": FOR 1=1 

TO 4:PRINT F$(I) SPC(18) F$(I) ; :NEXT:PRI 

NT 10 

•310 PRINT"[c 4][5" "]FIDGITS ARE LIKE BA 

BY BIRDS, ONLY [DOWN] [4" "]SQUARER. WHEN 
THEY GET"; pc 

•320 PRINT" HUNGRY, THEY[D0WN][4" "]SING 

FOR THEIR SUPPER. TO QUIET THE[D0WNl[4" 

"]SINGING"; dA 

•330 PRINT" FIDGIT, YOU FEED IT BY PRES-[ 

DOWN] [4" "]SING THE KEY WITH THE SAME"; MN 
•340 PRINT" LETTER AS [DOWN] [4" "]THE FIDG 

IT." PI 

•399 REM LOAD GUST FONT EJ 

•400 FOR 1=0 TO 32: READ A: POKE 49152+1. A: 

NEXT jE 

•410 POKE 56334, PEEK( 56334) AND 254:P0KE 

1,PEEK(1) AND 251:SYS 49152 NE 

•420 POKE l.PEEK(l) OR 4: POKE 56334. PEEK( 

56334) OR 1 IE 

•430 READ A: IF A=999 THEN 450 JN 

•440 FOR 1=0 TO 7: READ B:POKE 14336+(A*8) 

+I,B: NEXT: GOTO 430 AH 

•450 PRINT: PRINT " [c 5][RVS0N] HIT ANY 

KEY WHEN READY TO CONTINUE." EB 

•460 GET A$:IF A$="" THEN 460 HJ 

•470 PRINT CHR$( 147): POKE 53272, (PEEK(532 

72) AND 240) OR 14 il 

•499 REM : SET UP SCREEN CB 

•5r/j GOSUB 60:POKES+5,9:POKE S+24,15:PRIN 

T CHR$(147) SPC(6); CN 

•510 RESTORE: FOR 1=1 TO 7: PRINT HC$;B$(I 

);"[RVS0FF][7"[UP]"]";:G0SUB 70: NEXT CA 
•520 PRINT: PRINT" [7"[D0WN]"] "; KM 
•530 FOR 1=8 TO 16: PRINT HC$:B$(I) ;"[RVS0 

FF][7"[UP]"]";:G0SUB 70: NEXT: PRINT: PRINT 

"[6"[D0WN]"]" Ki 

•540 FOR 1=17 TO 22:PRINT HC$;B$(I);"[RVS 

0FF][7"[UP]"]";:G0SUB 70: NEXT AA 

•550 PRINT HC$;B$(23);"[RVS0FF][7"[UP]"]" 

;: FOR 1=23 TO 25: GOSUB 70: NEXT NK 
•560 PRINT HC$;B$(24);"[RVS0FF][7"[UP]"]" 

;: GOSUB 70: FOR J=25 TO 26 OA 

•570 PRINT HC$;B$(J);"[RVS0FF][7"[UP]"]"; 

:F0R 1=1 TO 2: GOSUB 70: NEXT: POKE S+4, 20 

:NEXT KG 

•580 F0RI=1 TO 13: GOSUB 70: NEXT: GOSUB 60 CA 
•598 POKE 808, 234: REM 

*NOTE: DISABLES STOP AND STOP/RESTORE KN 

•599 REM MAIN LOOP OP 

•600 WL=99:GOSUB 90:RN=N:HI=INT(N0(N)/256 

):L0=N0(N)-(HI*256) HK 

•610 GOSUB 20 :RL=LN:RC=C0L: GOSUB 50: PRINT 

HO$:POKE S+5,0:POKE S+6,240 LH 

AHOY! 107 



620 POKE S+24,15:P0KE S+1,HI:P0KE S,LO:P 
OKE S+4,17:P0KE 198,0 IM 

630 GET N$:IF N$="" THEN 630 LO 

640 N=ASC(N$):IF N=133 THEN 760 EP 
650 IF N<65 OR N>90 THEN 630 EH 

660 N-N-64:IF WL099 THEN LN=WL : COL=WC : G 
OSUB 50: PRINT HC$ AE 

670 IF N=RN THEN LN=RL : COL=RC : GOTO 690 FI 
680 GOSUB 20:WL=LN:WC=COL:GOSUB 50: PRINT 

HS$:GOTO 630 NM 

690 GOSUB 50: PRINT HC$:SC=SC+I:POKE S+4, 
16: IF SC<10 THEN 600 CB 

700 GOSUB 60: GOSUB 900: PRINT: GOSUB 950; P 
OKE 808, 237: POKE 198,0 BG 

"'10 GET A$:IF A$="" THEN 710 JP 

720 IF A$<>"Q" THEN SC=0:GOTO 500 KG 

739 REM END GAME CK 

740 GOSUB 900: PRINT: GOSUB 980:LN=3:F0R I 
=1 TO 21:P0KE 781,LN:P0KE 782,13 LK 
750 POKE 783,0: SYS 65520: PRINT WL$:FOR T 
=1 TO 100:NEXT:LN=ABS(5-LN):NEXT HJ 
760 POKE 808, 237: POKE 53272,21 : POKE 648, 

4: PRINT "[CLEAR] tc 7]": POKE 53281, 6: POKE 

53280,14 HB 

770 GOSUB 60: END LF 

899 REM NEST SBRTN KO 

900 PRINT"[CLEAR] [DOWN] [DOWN ]":PRINTTAB( 
18) B1$:PRINTTAB(18) B2$:PRINTTAB(16) LE 
FT$(NE$,3); lA 
910 PRINT B3$ LEFT$(NE$,3):PRINTTAB(13) 
LEFT$(NE$,6) B4$ LEFT$(NE$,6) MK 
920 PRINTTAB(ll) LEFT$(NE$,6)"[RVS0FF]" 
B5$ LEFT$(NE$,6):PRINTTAB(10) LEFT$(NE$, 
4); JL 
930 PRINT "[RVSOFF]" B6$ LEFT$(NE$,4) :PR 
INTTAB(8) NE$:PRINTTAB(9) LEFT$(NE$,22) NJ 
940 PRINTTAB(IO) LEFT$(NE$,20) :PRINTTAB( 
11) LEFT$(NE$,18):RETURN GN 

949 REM BANNER SBRTNS EA 

950 PRINTTAB(9)"[RVS0N][RED] [s G][s H][ 
c A][s S][c A][s I] [c A][s I][s C][s D 
][s U][s I][s A][s A][s G][s H] [s A] ": 
PRINTrAB(9)"[RVS0N] [c M][c H][c Ql[s S] 
[s B][s B] [c Ql[s Z][c M][c H][s B][c 
S][c Q][c W][c M][c H] [s B] " FD 
960 PRINTTAB(9)"[RVS0N] [s E][s F][c Z][ 

s S][s X][s X] [s Xl[s X][s E][s F][s J 
][s K][s X][s X][s E][s F] [s W] ":PRINT 
TAB(6)"[c 4][D0WN]HIT '[BLUE]Q[c 4]' TO 
QUIT" ; DB 

970 PRINT" OR ANY OTHER" :PRINTTAB( 12) "KE 
Y TO PLAY AGAIN.": POKE 198,0: RETURN GE 
980 PRINTTAB(11)"[RVS0N][RED] [c A][s I] 
[s A][s A][c A][s S] [c A][s I][s A][s 
A][c A][s S] [s A] ": PRINTTAB(ll) " 
[RVSON] [c Q][s Z][s M][s N][c Q][s S] 
[c Q][s Z][s M][s N][c Q][s S] [s B] " KA 
990 PRINTTAB(ll) "[RVSON] [c Z][s K][s E 



][s F][c Z][s S] [c Z][s K][s E][s F][c 
Z][s S] [s W] ":RETURN DL 

•999 REM STRINGS HH 

•1000 HC$="[4" "] [DOWN] [4"[LEFT]"] [WHITE] 
[s U][s C][s C][s I][D0WN][4"[LEFr]"][s 
B] [BLACK] [RVSON ]**[ WHITE] [ RVSOFF] [s B][D 
0WN][4"[LEFr]"][s B][c 1 ] [RVSON ]$%[ WHITE 
][RVSOFF][s B][D0WN][4"[LEFT]"][s J][c R 
][c R][s K][D0WN][4"[LEFT]"]" FN 

•1010 H0$=" [WHITE] [s U][s C][s C][s I][DO 
WN][4"[LEFT]"][s B][RED][RVSON][sEP] [c * 
] [RVSOFF] [WHITE] [s B][D0WN][4"[LEFT]"] [s 
B][RED][c *][sEP][WHITE][s B][D0WN][4"[ 
LEFT]"][s J][c R][c R][s K][D0WN][4"[LEF 
T]"] [s -][s -] " NH 

•1015 HS$="[4" "] [DOWN] [4" [LEFT]"] [WHITE] 
[RVSON ]9[RVS0FF][c P][c P][RVSON]0[DOWN] 
[4"[LEFT]"]l[BLACK]22tWHITE]3[D0WN][4"[L 
EFT]"]4[c 1]$%[WHITE]5[D0WN][4"[LEFT]"][ 
RVS0FF][s J][c R][c R][s K][D0WN][4"[LEF 
T]"]" CP 

•1020 B$(l)="[RVSON][BLACK]&[s U][s I]'[D 
0WN][4"[LEFT]"] [c Q][c W] [D0WN][4"[LEF 
T]"] [s X][s X] " BN 

•1030 B$(2)="[RVS0N][RED]&[c A][s I] '[DOW 
N][4"[LEFT]"] [c Q][s Z] [DOWN] [4" [LEFT] 
"] [c Z][s K] " CL 

•1040 B$(3)="[RVS0N][PURPLE]&[s U][s I]'[ 
D0WN][4"[LEFT]"] [s B] [DOWN] [4"[LEFT]" 
] [s J][s K] " MJ 

•1050 B$(4)="[RVS0N][BLUE]&[c A][s I] '[DO 
WN][4"[LEFT]"] [s B][s B] [DOWN] [4" [LEFT 
]"] [c Z][s K] " GH 

•1060 B$(5)="[RVS0N][c l]&[c A][s S]'[DOW 
N][4"[LEFT"]"] [c Q][s S] [DOWN] [4" [LEFT] 
"] [c Z][s S] " LD 

•1070 B$(6)="[RVS0N][c 2]&[c A][s S]'[DOW 
N][4"[LEFT]"] [c Q][s S] [DOWN] [4" [LEFT] 
"] [s X] " EL 

•1080 B$(7)="[RVS0N][c 3]&[s U][s I] '[DOW 
N][4"[LEFT]"] [s B][c S] [DOWN] [4" [LEFT] 
"] [s J][s K] " CM 

•1090 B$(8)="[RVS0N][c 5]&[s A][s A]'[DOW 
N][4"[LEFT]"] [c Q][c W] [DOWN] [4" [LEFT] 
"] [s X][s X] " 00 

•1100 B$(9)="[RVS0N][GREEN]&[s C][s D]'[D 
OWN] [4" [LEFT]"] [c M][c H] [D0WN][4"[LEF 
T]"] [s E][s F] " FL 

•1110 B$(10)="[RVS0N][RED]& [s A]'[DOWN][ 
4"[LEFT]"] [s B] [D0WN][4"[LEFT]"] [s J 
][s K] " IH 

•1120 B$(ll)="[RVSON][BLACK]&[s A][s A]'[ 
D0WN][4"[LEFT]"] [c Q][s Z] [D0WN][4"[LE 
FT]"] [s X][s X] " DM 

•1130 B$(12)="[RVS0N][PURPLE]&[s A] '[DOW 
N][4"[LEFT]"] [s B] [D0WN][4"[LEFT]"] [ 
c Z][s S] " MD 

•1140 B$(13)="[RVS0N][BLUE]&[]'[D0WN][4"[ 
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LEFT]"] 78 [D0WN][4"[LEFT]"] :; " ON 

•1150 B$(U)="[RVSON][GREEN]&[c A][s !]'[ 
D0WN][4"[LEFT]"] [s B][s B] [D0WN][4"[LE 
FT]"] [s X][s X] " LE 

•1160 B$(15)="[RVS0N][c l]&[s U][s I]'[IX) 
WN][4"[LEFT]"] [s B][s B] [DOWN] [4" [LEFT 
]"] [s J][s K] " PD 

•1170 B$(16)="[RVS0N][c 2]&[c A][s I]'[DO 
WN][4"[LEFT]"] [c Q][s K] [DOWN] [4" [LEFT 
]"] [s X] •' EB 

•1180 B$(17)="[RVS0N][c l]&[s U][s I]'[DO 
WN][4"[LEFT]"] [s B][s B] [DOWN] [4" [LEFT 
]"] [s J][s Q] " NP 

•1190 B$(18)="[RVS0N][RED]&[c A][s I]'[DO 
WN][4"[LEFT]"] [c Q][s Z] [DOWN] [4"[ LEFT 
]"] [s X][s X] " MB 

•1200 B$(19)="[RVS0N][BLUE]&[s U][s 1]*[D 
0WN][4"[LEFT]"] [s J][s I] [D0WN][4"[LEF 
T]"] [s J][s K] '• NH 

•1210 B$(20)="[RVS0N][PURPLE]&[s G][s H]' 
[D0WN][4"[LEFT]"] [c M][c H] [D0WN][4"[L 
EFT]"] [s E][s F] " BE 

•1220 B$(21)="[RVS0N][c 5]&[s A][s A]'[D0 
WN][4"[LEFT]"] [s B][s B] [DOWN] [4" [LEFT 
]"] [s J][s K] " DJ 

•1230 B$(22)="[RVSON][GREEN]&[s A][s A]'[ 
D0WN][4"[LEFT]"] [s B][s B] [D0WN][4"[LE 
fT]"] [c G][c N] " HL 

•1240 B$(23)="[RVS0N][RED]&[UPARR0W][BACK 
ARROW]' [DOWN ][4"[LEFT]"] 78 [D0WN][4"[LE 
FT]"] <> " MB 

•1250 B$(24)="[RVS0N][BLACK]&[s A][s A]'[ 
D0WN][4"[LEFT]"] [s V][s Z] [D0WN][4"[LE 
FT]"] [s X][s X] " NN 

•1260 B$(25)="[RVS0N][c 2]&[s A][s A] '[DO 
WN][4"[LEFT]"] [s M][s N] [DOWN] [4" [LEFT 
]"] [s E][s F] " DF 

•1270 B$(26)="[RVS0N][BLUE]&[s R]6'[D0WN] 
[4"[LEFT]"] [c Y][c U] [D0WN][4"[LEFT]"] 
[c 0][s S] " EE 

•1280 Bl$="[ WHITE] [s U][s *][s *][s I]":B 
2$="[WHITE][s B][ BLACK ][RVSON]**[WHITE][ 
RVSOFF][s B][c 2]":B3$="[RVSOFF][WHITE][ 
s B][c 1][RVS0N]$%[ WHITE] [RVSOFF][s B][c 
2]":B4$="[RVS0FF][WHITE][s J][c R][c R] 
[sK][c2]" DN 

•1290 B5$=" [RVSON][RED]& '[RVSOFF][c 2 
] ":B6$="[5" "][RVS0N][RED][4" "][RVSOF 
F][c 2][5" "]":NE$="[RVS0N]())[3"("]))() 
())()())()(())" LA 

•1300 B7$=" [ GREEN ][RVSON][ SEP] [c *][DOW 
N][4"[LEFT]"][4" "][D0WN][4"[LEFT]"] [4" 
"]" HJ 

•1310 WL$="[WHITE][5" "][D0WN][5"[LEFT]"] 
[c A][3"[s *]"][s I][D0WN][5"[LEfT]"][s 
J][c R] [s B][D0WN][4"[LEFr]"][s J][c R 
] [c Z][D0WN][3"[LEFT]"][s J][s *][s *][ 
DOWN][3"[LEFr]"][3" "]" JC 



•1320 WR$="[WHITE][5" "] [DOWN] [5" [LEFT]"] 
[s U][3"[s *]"][c S][D0WN][5"[LEFT]"][s 
B] [c R][s K][D0WN][5"[LEFT]"][c X] [c 
R][s K][D0WN][4"[LEFr]"][s *][s *][s K][ 
D0WN][3"[LEFT]"][3" "][c 4]" KP 

•1330 F$(l)="[RED][s U][s I][9 S] [c S] 
[s S][3" "]":F$(2)="[s +] [c S][s U][c W 
][s U][c S][c S][s +][s U][s I]":F$(3)=" 
[c E] [c E][s J][c E][s J][c W][c E][s J 
][sJ][sI]" HA 

•1340 F$(4)="[5" "][s Ji[s K] [s J][s K] 
":M$(2)="[c l][RVSON][c *][RVS0FF] [RVS 
0N][sEP][DOWN][5"[LEFT]"][WHITE][RVSOFF] 
[s U][RVSON][c 1] [c *][sEP] [RVSOFF][WH 
ITE][s I]" GM 

•1350 M$(l)="[c 1] [RVSON][sEP][c *][RVSO 
FF] [D0WN][5"[LEFT]"][WHITE][s U][RVSON] 
[c l][sEP] [c *] [WHITE] [RVSOFF][s I][DO 
WN][6"[LEFT]"][s B] [BLACK][s Q][WHITE] 
[s B][D0WN][6"[LEFr]"][s B][4" "][s B][ 
D0WN][6"[LEFT]"][s J][s *][c S][c A][s * 
][s K]" IF 

•1399 REM NOTE FREQUENCIES BK 

•1400 NO(l)=4291:NO(2)=4547:NO(3)=4818:NO 
(4)=5103:NO(5)=5407:NO(6)=5728 DH 

•1410 N0(7)=6070:N0(8)=6431:NO(9)=6813:NO 
(10)=7218:N0(11)=7648:N0(12)=8102 AE 

•1420 NO(13)=8584:N0(14)=9095:N0(15)=9634 

:NO(16)=10208:NO(17)=10815:NO(18)=11458 PC 

•1430 NO(19)=12139:NO(20)=12861:NO(21)=13 

625:NO(22)=I4436:NO(23)=15294 PN 

•1440 NO(24)=16204:NO(25)=17167:NO(26)=18 

188 LG 

•1450 GOTO 100 CF 

•1999 REM MUSIC DATA GH 

•2000 DATA 33,136,24,33,136.24,50,61,24 HB 
•2010 DATA 50,61,24,56,K/j,24,56,ir/j,24 DN 
•2020 DATA 50,61,48,44,194,24,44,194,24 IH 
•2030 DATA 42,63,24,42,63,24,37,162,10 MA 
•2040 DATA 37,162,10,37,162,10,37,162,10 IP 
•2050 DATA 33,136,48,50,61,24,50,61,24 NA 
•2060 DATA 44,194,48,42,63,24,42,63,24 AA 
•2070 DATA 37,162,48,50,61,10,50,61,10 KJ 
•2080 DATA 50,61,24,44,194,48,42,63,24 IJ 
•2090 DATA 42,63,24,37,162,48,33,136,24 FF 
•2ir/j DATA 33,136,24,50,61,24,50,61,24 LK 
•2110 DATA 56, 100, 24, 56, ir/j, 24, 50, 61, 48 EH 
•2120 DATA 44,194,24,44,194,24,42,63,24 FA 
•2130 DATA 42,63,24,37,162,24,37,162,24 OE 
■2140 DATA 33,136,48 FF 

•2999 REM COPY DATA JE 

•3000 DATA 169,0,133,251,133,253,169,208 HB 
•3010 DATA 133,252,169,56,133,254,162,16 FI 
•3020 DATA 160,0,177,251,145,253,136,208 GD 
•3030 DATA 249,230,252,230,254,202,208 AD 
•3040 DATA 240,96 LN 

•3099 REM CUSTOM FONT DATA NH 

•3155 DATA155,255,255, 255,0,0, 12, 12, 12 JL 
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•3156 DATA156, 255, 255, 255, 255, 255, 255, 255 

,255 10 

•3157 DATA157,255,255,255,7,3,33,48,48 MC 
•3158 DATA158,255,255,255,12,12,12,12,12 AP 
•3159 DATA159,255,255,255,A8,A8,A8,48,48 DD 
•3164 DATA164,63,113,57,31,15,7,3,1 NN 
•3165 DATA165, 252, 142, 156, 248, 240, 224, 192 

,128 PH 

•3166 DATA166,15,15,7,15,31,63,127,255 CO 
•3167 DATA167, 240, 240, 224, 240, 248, 252, 254 

,255 EI 

•3168 DATA168,49,155,206,236,63,115,206,7 

2 FG 

■3169 DATA169,140,217,115,55.252,206,115, 

18 ME 

•3170 DATA170,126,231,0,60,126,60,0,0 AE 
•3175 DATA175,0,0,0,0,0,0,7,15 IL 

•3176 DATA176,0,0,0,0,0,0,224,240 FC 
•3177 DATA177,28,24,24,12,12,24,48,48 DN 
•3178 DATA178,60,102,195,24,60,60,60,24 FB 
•3179 DATA179,56,24,24,48,48,24,12,12 AO 
•3180 DATA180,24,28,14,7,7,14,28,24 DG 
•3181 DATA181,24,56,112,224,224,112,56,24 JE 
•3182 DATA182,255,255,255,3,3,135,135,15 NN 
•3183 DATA183,12,12,12,12,12,12,12,12 PI 
•3184 DATA184,48,48,48,48,48,48,48,48 HD 
•3185 DATA185,0,0,O,O,O,0,3,7 HC 

•3186 DATA186,12,12,12,12,12,255,255,255 BM 
•3187 DATA187,48,48,48,48,48,255,255,255 BE 
•3188 DATA188,12,12,132,192,224,255,255,2 

55 PO 

•3190 DATA190,48,48,33,3,7,255,255,255 FP 
•3193 DATA193,255,255,255,195,195,195,195 

,195 BI 

•3194 DATA194, 195, 195, 195, 195, 195, 195, 195 

,195 CI 

•3195 DATA195, 255, 255, 255, 252, 252, 252, 252 

,252 HK 

•3196 DATA196,255,255,255,63,63,63,63,63 DL 
•3197 DATA197, 252, 252, 252, 252, 252, 255, 255 

,255 NA 

•3198 DATA198,63,63,63,63,63,255,255,255 CH 
•3199 DATA199, 255, 255, 255, 128, 128, 252, 252 

,252 AG 

• 3200 DATA200 , 255 , 255 , 255 , 1 , 1 , 63 , 63 , 63 CM 
•3201 DATA201,255,255,255,15,7,131,195,19 

5 JI 

•3202 DATA202, 195, 195, 193. 224, 240, 255, 255 

,255 OH 

•3203 DATA203,195,195,131,7,15,255,255,25 

5 AA 

•3205 DATA205, 195, 195, 225, 240, 248, 252, 252 

,252 LD 

•3206 DATA206.195,195,135,15,31,63,63,63 PC LT. GREEN, LT. BLUE, GRAY 3 
•3209 DATA209, 3, 3, 3, 1,0.241,251,255 DJ -50 REM**DISPLAY** 



,255 BN 

•3211 DATA211,255,255,255,3,3,255,255,255 JM 
•3213 DATA213, 255, 255, 255, 240, 224, 193, 195 

.195 ND 

•3214 DATA214. 195, 195, 225, 240, 240, 225, 195 

,195 ID 

•3215 DATA215, 255, 195, 129, 129,195,255,255 

,255 PG 

•3216 DATA216, 195, 195, 195, 195, 195, 255, 255 

,255 NC 

•3218 DATA218, 195, 195, 135, 15, 15, 135, 195,1 

95 PO 

•3229 DATA229, 195,225,240,248,252,255,255 

,255 IM 

•3234 DATA234,195,135,15,31,63,255,255,25 

5 OL 

•3235 DATA235, 195, 195, 195, 192, 192, 195, 195 

,195 HE 

■3236 DATA236, 255. 255, 255, 195, 195, 195, 195 

,195 JM 

•3237 DATA237, 195, 195, 195, 192, 192, 255, 255 

,255 BB 

•3238 DATA238,255,255,255.3,3,195,195,195 KI 
•3240 DATA240, 255, 255, 255, 192, 192, 195, 195 

,195 IF 

•3241 DATA241,195.195,195,0,0,255,255,255GA 
•3242 DATA242, 255, 255, 255, 0,0, 195, 195, 195 ID 
•3243 DATA243,195,195,195,3.3,195,195,195 ML 
•3247 DATA247, 255, 254, 254. 252, 252, 248, 248 

, 240 LB 

■3248 DATA248,15,31,31,63,63,127,127,255 OE 
■3249 DATA249, 240, 225, 225, 192, 192, 255, 255 

,255 IB 

•3999 DATA 999 CP 

SEUCTACHROME 

FROM PAGE 17 

•10 REM**INIT** FN 

•12 DIMT(15),N$(15),S$(15).T$(15) OE 

•14 C(0)=1:C(1)=3:C(2)=0:C(3)=6 HF 

•16 F0RI=rjT015:READS$(I):NEXT GD 

•18 F0RI=W015:READT$(I):T(I)=VAL(T$(I)): 

NEXT JD 

•20 F0RI=0T015:READN$(I):NEXT GO 

•30 REM**DATA** FL 

•32 DATAO, 1,2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12, 13,1 

4,15 FL 

•34 DATA 144,5,28,159,156,30,31,158,129,1 

49,150,151,152,153,154,155 KB 

■36 DATA BLACK, WHITE, RED, CYAN, PURPLE, GREE 

N, BLUE, YELLOW EA 

•38 DATA ORANGE, BROWN, LT. RED, GRAY1,GRAY2, 

NB 
FE 



-3210 DATA210,255,255,255,192,192,255,255 
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'52 P0KE53280,C(0):P0KE53281,C(1) 



EJ 



54 PRINTCHR$(147)CHR$(T(C(2))):PRINT lA 

56 PRINTTAB(9)CHR$(18)" SELECT ACHROME ": 

PRINT: PRINT: PRINT JE 

58 PRINT"CONTROL"TAB(12)"COLOR"TAB(25)"C 

OMMAND": PRINT KM 

60 PRINT: PRINT" FI BORDER ="; LN 

62 PRINTC(0)TAB(15)N$(C(0))TAB(25); NC 

64 PRINT"POKE53280,"S$(C(0)) NC 

66 PRINT: PRINT"F3 SCREEN ="; LH 

68 PRINTC(1)TAB(15)N$(C(1))TAB(25); IK 

70 PRINT"POKE53281,"S$(C(l)) 01 

72 PRINT :PRINT"F5 TEXTl ="; JC 

74 PRINTC(2)TAB(15)N$(C(2))TAB(25); KK 

76 PRINr*PRINTCHR$("; AI 

78 PRINTT$(C(2))")" KK 

80 PRINTCHR$(T(C(3))) BM 

82 PRINT"F7 TEXT2 ="; KH 

84 PRINTC(3)TAB(15)N$(C(3))TAB(25); HK 

86 PRINT"PRINTCHR$("; AI 



88 PRINTT$(C(3))")' 



KH 



90 PRINT: PRINT: PRINT" HIT FUNCTION KEYS 

TO CHANGE COLORS" EL 

IV) REM**CHANGE COLORS** NP 

102 GETK$:IFK$=""THENI02 GK 

104 K=ASC(K$)-133:IFK<rX)RK>7THEN102 GM 

106 M=INT(K/4):N=K-M*4 KN 
108 IFM=OTHENC(N)=C(N)+1:IFCCN)>15THENC( 

N)=0 BM 

110 IFMTHENC(N)=C(N)-l:IFC(N)<r/rHENC(N)= 
15 EC 

112 G0T050 PD 

GATORS N SNAKES 

FROM PAGE 41 

•5 PX=53281 HI 

•10 L(0)=1350:L(1)=1510:L(2)=1670:L(3)=18 

30 : C0L=54272 : LOC=L(0) : K=0 : LV=1 : AG=0 GK 

•20 SID=54272:SH=SID+1:SL=SH+3:W1=33:W2=3 

2 : PRINT" [ CLEAR ] [ YELLOW ] [ 6" [ DOWN J " ] " : POKE 

PX,11:P0KEPX-1,0 NN 

• 25 F0RI=SIDT0SID+24 : POKEI , 0: NEXT : P0KE542 

96 . 1 5 : P0KE54277 , : POKESH+5 , 240 MC 

•30 POKE56,39:C=.PEEK(53279):POKE5r/j02,0 LK 
•40 SN$="[6" "]G ATORS N SNAKE 

S" DJ 

•45 F0RI=1T034:PRINTRIGHT$(SN$,I);"[UP]": 

F0RT=1T060:NEXT:P0KESL,129:P0KESH,7:P0KE 

SID, 255 PB 

•47 NEXT: POKESL, 128 MJ 

•50 PRINTTAB(12)"[3"tDOWN]"]BY JIM SANDER 

S" MC 

•60 PRINTTAB(14)"[D0WN][D0WN]0NE M0MENT[3 

"."] [HOME] ":G0SUB450: REM READ SPRITES/CH 

ARSET/ML 10 

■ 70 PRINT" [CLEAR ]" : K=0 : SC=0 : C=PEEK( 53279) 

: POKE50002 , : POK E49203 , 1 1-LV : HT=0 CE 
•80 POKE53265,PEEK(53265)AND239:POKEPX,ll GA 



•90 PRINT" [ WHITE ][RVSON] SCORE ";TAB(37)" 

[c 2][RVS0N] [WHITE]" FM 

•100 PRINT"[RVS0N][7" "]" jTAB(37)"[c 2] 

[WHITE]" CL 

•110 PRINT"[RVS0N][3" "]HI ";TAB(37)"[c 
2] [WHITE]" LI 

•120 PRINT"[RVS0N] SCORE ";TAB(37)"[c 2] 

[WHITE]" GA 

•130 PRINT"[RVS0N][7" "]";TAB(37)"[c 2] 

[WHITE]" CL 

•140 PRINT"[RVS0N]G[6" "]";TAB(37)"[RVSOF 
F][YELLOW][s V][RVSON][ YELLOW] [WHITE]" JE 
•150 PRINT"[RVS0N]A[6" "]";TAB(37)"[c 2] 

[WHITE]" GN 

•160 PRINT"[RVS0N]T[6" "]";TAB(37)"[c 2] 

[WHITE]" u^ 

•170 PRINT"[RVS0N]0[6" "]";TAB(37)"[c 2] 

[WHITE]" HI 

•180 PRINT" [RVS0N]R[6" "]";TAB(37)"[c 2] 

[WHITE]" LK 

•190 PRINT"[RVS0N]S[6" "]";TAB(37)"[RVS0F 
F] [YELLOW] [s V][RVS0N]t YELLOW] [WHITE]" LA 
•200 PRINT"[RVS0N][7" "]";TAB(37)"[c 2] 

[WHITE]" CL 

•210 PRINT"[RVS0N]N[6" "]";TAB(37)"[c 2] 

[WHITE]" LG 

•220 PRINT"[RVS0N][7" "l";TAB(37)"[c 2] 

[WHITE]" CL 

•230 PRINT"[RVS0N]S[6" "]";TAB(37)"[c 2] 

[WHITE]" LP 

•240 PRINT"[RVS0N]N[6" "]";TAB(37)"[RVS0F 
F][YELLOW][s V][RVSON] [YELLOW] [WHITE]" HN 
•250 PRINT"[RVS0N]A[6" "]";TAB(37)"[c 2] 

[WHITE]" GN 

■260 PRINT"[RVS0N]K[6" "]";TAB(37)"[c 2] 

[WHITE]" HH 

•270 PRINT"[RVS0N]E[6" "]";TAB(37)"[c 2] 

[WHITE]" JB 

•280 PRINT"[RVS0N]S[6" "]";TAB(37)"[c 2] 

[WHITE]" LP 

•290 PRINT"[RVS0N][7" "]";TAB(37)"[RVSOFF 

][YELL0W][3 V][RVSON][ YELLOW] [WHITE]" HM 
•300 PRINT"[RVS0N]LEV."LV;TAB(37)"[c 2] 

[WHITE]" JB 

•310 PRINT"[RVS0N][7" "]";TAB(37)"[c 2] 

[WHITE] [HOME]" QA 

•320 F0RI=r/r04 Jc 

•330 PRINTTAB(18)"[RVS0N][GREEN][3"[s X]" 

][RVSOFF][ WHITE]" FM 

•340 NEXT: PRINT FO 

•350 F0RI=0T08 JG 

•360 PRINTrAB(18)"[RVS0N][GREEN][3"[s X]" 

][RVSOFF] [WHITE]" FM 

•370 NEXT: PRINT FO 

•380 F0RI=f/r06 JE 

•390 PRINTTAB(18)"[RVS0N][GREEN][3"[s X]" 

][RVSOFF][ WHITE]" FM 

•40rj NEXT:P0KE1910, 160: POKECOL+1910, 1 :POK 

AHOY! m 



ESP+21,255 GH 
• 410 IFAG=1 ANDUD=1THENPRINT" [ HOME ]" ; TAB( 1 

)"[5"[IX)WN]"][RVS0N]";HS EG 
•420 POKEL(0),155!POKEL(l),155:POKEL(2),l 

55:POKEL(3),155 ND 
• 430 POKEL(0)+COL , 7 : POKEL( 1 )+COL , 7 : POKEL( 

2)+C0L,7:P0KEL(3)+C0L,7 CH 

•440 P0KE53265,PEEK(53265)0R16:G0T0U50 IC 

•450 SP=53248:POKE53281,ll:P0KE53280,0 EN 
•460 POKESP+21,0:POKESP+23,0:POKESP+16,19 

2 PM 
• 470 Cl=SP+39 : POKECl , 1 : POKECl+1 , 1 : P0KEC1+ 

2,7: POKECl+3 , 7 : POKECl+4 , 1 : POKECl+5 , 1 MO 

•480 P0KEC1+6,5:P0KEC1+7,15 CN 

•490 F0RI=1T015STEP2:P0KESP+I, 100: NEXT KG 
• 500 POKESP+0 , 75 : POKESP+2 , 140 : POKESP+4 , 10 
5 : POKESP+6 , 195 : POKESP+8 , 225 : POKESP+10 , 25 

5 ND 

•510 POKESP+12,15:POKESP+14,45 CA 
•520 M1=12288:M2=12352:M3=12416:M4=12480: 

M5=12544:M6=12608:M7=12672:M8=12736 MA 

•530 F0RI=''JT063:READA:P0KEM1+I,A:NEXT FJ 

•540 F0RI=''/r063:READA:P0KEM2+I,A:NEXT DC 

•550 F0RI=0T063:READA:P0KEM3+I,A:NEXT DL 

•560 F0RI=0T063:READA:P0KEM4+I,A:NEXT DM 

•570 RESTORE 10 

•580 F0RI=f'/r063:READA:P0KEM5+I,A:NEXT DN 

•590 FORI=0TO63:READA:POKEM6+I,A:NEXT DC 

•600 FORI=f^rr063:READA:POKEM7+I,A:NEXT FP 

•610 F0RI=<'JT063:READA:P0KEM8+I,A:NEXT GA 

•620 FORI=r/r07:POKE2040+I, 192+1: NEXT NO 
• 630 F0RI=3T01 5STEP2 : POKE50f/jO+I , 5 : NEXT : P 

0KE5f//Jl,4 LK 

•640 DATA0,l,O,0,2,O,0,4 ED 

•650 DATAO, 0,12,0,0,28,0,0 OG 

•660 DATA28,0,0,14,0,0,7,0 MJ 

•670 DATAO, 3, 128, 0,1, 192, 0,1 CA 

•680 DATA192, 0,3, 128,0,7,0,0 PH 

•690 DATA14,0,0,28,0,0,30,0 JC 

•700 DATAO, 15,0,0, 13, 128,0, 15 IM 

•710 DATA128, 0,3, 128, 0,0, 128,0 NB 

•720 DATAO, 64, 0,0, 224, 0,1, 240 10 

•730 DATAO, 1,152, 0,0, 248, 0,0 CL 

•740 DATA120, 0,0, 48, 0,0, 112,0 BI 

•750 DATAO, 224, 0,1, 192, 0,3, 128 NG 

•760 DATAO, 3, 128, 0,1, 192, 0,0 CB 

•770 DATA224,0,0, 112,0,0, 56,0 HC 

•780 DATAO, 56, 0,0, 48, 0,0, 32 CI 

•790 DATA0,0, 64,0,0, 128,0,0 ND 

•800 DATAO, 1,0, 0,6, 0,0, 12 FF 

•810 DATAO, 0,24, 0,0, 24, 0,0 MP 

•820 DATA12,0,0, 14,0, 0,14, 24 LN 

•830 DATAl, 143, 32, 0,95, 160,0,95 PB 

•840 DATA224, 0,127, 128, 0,31, 128,0 HF 

•850 DATA31, 128, 0,127,128,0,95,224 FH 

•860 DATAO, 223, 160,0, 223, 176,0, 22 EG 

•870 DATA176, 0,15,0,0,6,0,0 NE 

•880 DATA0,96,0,0,240,0,13,104 ND 

m AHOY! 



•890 DATAO, 13, 251, 0,5, 251, 0,7 
• 900 DATA250 , , 1 , 254 , , 1 , 248 , 
•910 DATAl, 248, 0,1, 254, 0,7, 250 
•920 DATAO, 5, 154, 128, 20, 241, 128, 24 
•930 DATA112, 0,0, 112,0,0,48,0 
• 940 DATAO , 24 , , , 24 , , , 48 
•950 DATAO, 0,96, 0,0, 128,0,0 



KL 
KF 
HO 
EL 
DH 
BC 
CO 



•960 DATA120, 165, 1,41, 251, 133, 1,169, 0,133 

,251,133,253,169,40,133,252,169,208,133 LG 
•970 DATA254, 162, 8, 160, 0,177, 253, 145,251, 

136,208,249,230,252,230,254,202,208,240 PJ 
•980 DATA165,1,9,4,133,1,88,96 KC 

•990 DATA2, 4, 200, 59, 59, 200, 4, 2, 64, 32, 215, 

216,216,23,32,64 IC 

•1000 DATAl 53, 90, 36, 24, 36, 102, 102, 102, 102 

,102,102,36,24,36,90,153 AE 

•1010 DATA129,60,66,9O,90,66,6O,129 KP 
•1020 G0T01030 FH 

• 1030 FORI=f/r046 : READA : P0KE828+I , A : CK=CK+ 

A: NEXT MO 

•1040 IFCK<>6871THENPRINT"ERR0R IN LINES 

960-980": END HP 

•1050 SYS828 EF 

•1060 F0RI=U480T011519:READA:P0KEI,A:NEX 

T MF 

•1070 P0KE53272,(PEEK(53272)AND24O)OR10 MM 
•1080 FORL=SIDTOSID+24:POKEL,0:NEXT EP 

• 1090 POKESID+5 , 88 : P0KESIIH6 , 195 : POKESID+ 
24,15 AI 

•1100 FORI=49152T049152+94:READML:POKEI,M 
L:CK=CK+ML:NEXT KL 

•1110 IFCK<>20502THENPRINT"ERROR IN LINES 

1710-1780": END EO 

•1120 RETURN IM 

•1130 SYS49152:P0KESH,25:P0KESID,77 PB 
•1140 P0KESID+4,W1:F0RT=1T010:NEXT:P0KESI 
D+4,W2:SYS491 52 :W1=33:W2=32: RETURN JJ 
•1150 V=PEEK(56321)AND15 EH 

•1160 SYS49152 KF 

•1170 IFPEEK(50002)<>rjTHENG0SUB1440 EK 
•1180 IFV=14THEN1270 IN 

•1190 SYS49152 KF 

•1200 IFV=13THEN1310 HH 

•1210 SYS49152 KF 

•1220 IFV=7THEN1350 DE 

•1230 SYS49152 KF 

•1240 IFV=11THEN1400 ON 

•1250 SYS49152 KF 

•1260 G0T01150 FO 

•1270 UP=PEEK(LX-40) FM 

•1280 IFUPO32THEN1150 HO 

• 1290 POKELOC-40 , 157 : POKECOL+LOC-40 , 7 : POK 
ELOC , 32 : GOSUBl 1 30 : L0C=L0C-40 : SYS49152 IM 
•1300 SYS49152:GOT01150 CC 

•1310 DWN=PEEK(LOC+40) JO 

•1320 IFDWNO32THEN1150 NB 

• 1330 POKELOC+40 ,158: POKECOU-LOC+40 , 7 : POK 
ELOC,32:GOSUB1130:L0C=LOC+40:SYS49152 PA 



'1340 SYSA9152:G0T01150 CC 

•1350 RT=PEEK(L0C+1) DF 

•1360 IFRT=86THENHT=HT+1:H=1:GOT01380 JI 

•1370 IFRTO32THEN1150 HL 

• 1380 POKELOC+1 , 155 : POKECOL+LOC+1 , 7 : POKEL 
OC,32:GOSUB1130:LOC=LOC+1:SYS49152 MG 

•1390 SYS49152:SC=SC+LV:GOSUB1480:GOT0115 
EC 

•14r/j LT=PEEK(L0C-1) CI 

•1410 IFLTO32THEN1150 HF 

• 1420 POKELOC-1 , 1 56 : POKECOL+LOC-1 , 7 : POKEL 
OC,32:GOSUB1130:LOC=LOC-1:SYS49152 DG 

•1430 SYS49152:SYS49152:G0T01150 DD 

•1440 IFK=3THENPOKELOC,159:Wl=129:W2=128: 
GOSUB1130:POKELOC,32:K=OtLOC=L(K):GOT016 
20 GO 

•1450 K=K+1;X=HT+K:P0KEL0C,159:W1=129:W2= 
1 28 : GOSUBl 1 30 : POKELOC , 32 : LOC=L ( K ) : C=PEEK 
(53279) IK 

•1460 IFK=>4THENK=0:LOC=L(K):GOT01620 FO 

•1470 RETURN IM 

•1480 SYS49152:PRINT"[HOME]";TAB(l)"[DOWN 

][DOWN][RVSON]";SC:SYS49152 DN 

•1490 IFHT=4THENPOKE1301.86:POKE1501,86:P 
0KE1701,86:P0KE1901,86:G0T01510 MB 

•isr/j G0T01580 FP 

•1510 P0KE1350,155:P0KE1510,155:P0KE1670, 
155:POKE1830,155:LOC=1350:K=0:HT=0:LV=LV 
+1 IJ 

•1520 IFLVMf/THENngO MK 

•1530 PRINTTAB(4)"[RVSON][19"[DOWN]"l";LV 



: IFLV=2THENP0KESP+23 , 1 
•1540 IFLV=4THENPOKESP+23,5 
•1550 IFLV=6THENP0KESP+23,19 
•1560 IFLV=8THENP0KESP+23,51 
• 1 570 X=0 : H=0: GOSUBl 7r/j:GOT01610 
•1580 IFH='-/rHEN1610 

•1590 X=HT+K:L0C=L(K):H=0:P0KEL(K),155 
•1600 IFK=>4THENX=0:L0C=L(K) :G0T01620 



LG 
GO 
LK 
JI 
ID 
BA 
PH 
IP 
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"He's our expert on turtle graphics. 



•1610 RETURN IM 

•1620 IFSC>HSTHENHS»SC:UD=1 MN 

•1630 PRINT" [HOME ]";TAB(1)"[ 5" [DOWK]"][RV 

SON]";HS KB 

•1640 POKESP+21,0:PRINTTAB(12)"GAME"TAB(2 

3) "OVER" NK 

•1650 PRINT: PRINTTAB(12)"PLAY"TAB(22)"T0 
AGAIN?" NJ 

•1655 PRINTTAB(12)"[RVS0N][D0WN]PRESS"TAB 

(21)"[RVS0N]FIRE BUTTON" CM 

•1660 JV=PEEK( 56321 ):FR=JVAND16:IFFR=16TH 

EN1660 JB 

•1670 AG=I:LV=1:POKESP+23,0:GOT070 HD 
• nOTj F0RI=15T00STEP-1 :P0KE53280,I:NEXT:R 

ETURN KO 

•1710 DATA 24, 160,0, 185, l,2r;8, 121, 81, 195, 

153,1,208 EA 

•1720 DATA 2Vj, 200, 200,2%, 192, 20,208, 239 

,173,1,208,201 IM 

•1730 DATA 20<-J, 208, 3, 32, 67, 192,56, 160, 16, 

185,255,207 GC 

■1740 DATA 249,79,195.153,255,207,136,136 

,136,136,192,0 OP 

•1750 DATA 208, 239, 162, 10, 160,0, 20rj, 208,2 

53,202,208,250 EB 

•1760 DATA 173,31,208,141,82,195,96,160,0 

,140.80,195 AF 

•1770 DATA 32,151,224,165,141,41,5,172,80 

,195,153,81 BI 

•1780 DATA 195,200, 2r/j, 140,80, 195, 192, 16, 

208,234,96 JP 

•1790 POKESP+21,0:P0KE53281, 11: PRINT" [CLE 
AR]" KE 

•I8f/J PRINT"[ YELLOW] [6"[DOWN]"][5"[RIGHT] 
"]YOU ARE A REMARKABLE PLAYER [3"."]" GG 

•1810 PRINTTAB( 11 )"[ DOWN] [DOWN ]CONGRATULA 
TIONS!" LG 

•1820 END IC 



PROGRAMMERS! 

Ahoy! wishes to continue pubtishing the best 
Commodore-compatible programs available in 
magazines today. We're looking for games, utili- 
ties, educational, music, and graphics programs, 
and programs that completely defy description. If 
you have an original C-64, C-128, or VIC 20 pro- 
gram, in BASIC or machine language, we'd like 
to see it. Payment will be made upon acceptance, 
at competitive industry rates. You will also receive 
royalties based on the sale of our program disks. 

Send a copy of your program on disk or tape, 
accompanied by a printout and documentation, to 
Ahoyi, 45 West 34th Street- Suite 407, New 
York, NY 10001. Include a self-addressed mailer 
with sufficient return postage affixed. (Program 

Erintouts not accompanied by a disk or tape will 
e returned unread; programs not accompanied 
by sufficient return postage will not be returned.' 




lEDITCRIAI. 



Contimied from page 5 

ing educational programs for school systems. A repre- 
sentative of Trillium Publishing revealed that program- 
ming for the C-64 and VIC just wasn't profitable. If it 
took under a week to rewrite an Apple program to run 
on the Commodore, they'd do it. But develop a package 
specifically for the 64? Too expensive. 

Another discussion uncovered why this is true. Though 
more Commodore computers have been sold than any 
other brand, most Commodore users don't buy software: 
they steal it. Even protected programs, like 77!^' Print Shop 
and Ghoslbusters, are quickly broken into and illegally 
distributed. One speaker said these two are currently the 
most popular "pirate" programs. Although the discussion 
centered on piracy within corporations, the point was well 
made that the majority of programs are stolen by "home" 
computerists. 

ADAPSO. the Association of Data Processing Service 
Organizations, is helping to standardize a hardware "lock 
and key" system that when used with the more resjjected 
computer systems (like IBM and compatibles, Apple, and 
CP/M computers) will prevent software theft. Although 
backup disks can be made easily, the software wont run 
without the hardware key. 

Within a year, such systems will make it very attrac- 
tive to write software for these computers. Unfortunate- 
ly, nothing similar is planned for "home" computer sys- 
tems. Instead, programmers will just move into the more 
lucrative "business" field. 

The pirates have done such an effective job of ripping 
off programs that companies are being forced to abandon 
us or risk bankruptcy. Even a company like Broderbund, 
creators of Tfie Print Shop, may be forced to leave the 
"home" market behind. According to a Future Computing 
survey of 40.000 computer users, software's price has no 
relationship to the incidence of piracy. It had been theor- 
ized that as prices came down piracy would stop. This 
is not borne out by the numbers. Price seems to have 
no effect on the amount of stealing. 

What does seem to matter is the amount of documenta- 
tion and vendor support needed to use the program. The 
more difficult a package is to use, the less likely it is 
to be pirated. A menu-driven program that needs little 
or no documentation is much more likely to be stolen, 
i.e. programs like HomeWord and The Print Shop. (Un- 



fortunately, the very factors that make a package a best 
seller also make it a "best stealer") 

I am not going to make impassioned pleas to the pi- 
rates to stop their activities. I now realize that the situa- 
tion is hopeless. Instead, I'd like to give all the legiti- 
mate software customers a bit of praise and advice. 

First, thank you for being the honest people that you 
are. At least one person in the world respects you. Sec- 
ond, if there is a piece of software you've had your eye 
on, buy it. Quick! Also, send back the registration card 
and give some helpfiil comments if you can. It can't hurt 
to let the companies that stick with us know that they 
are appreciated. 

I'd also like to conduct a survey to find out how home 
users view their computers. According to the gurus of 
SoftCon, you don't exist. But, if you'd like to prove the 
home market isn't dead, drop me a line in care of Ahoy! 
If you want to be included in an article Fm writing on 
the subject, please send your name, address, type of com- 
puter and how you use it to: 

Cheryl Peterson 

c/o Mioyl -Horns Computer Use Survey 

If you don't mind being contacted for more information, 

include your telephone number. D 
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Why pay 
newsstand 
prices when 
you can save al- 
most $1.00 on each 
issue? See card between 
pages 66 and 67 for details. 
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ROCKETS, BOATS, 
AND Pies IN POKES 

USING SPRITES IN 
C-64 AaiON GAMES 











n4 AHOY! 




R Letter Box 



Introducing EasyPlex! The new, 
easy-to-use electronic mail system 
from CompuServe. 



Finally! Electronic Mail that's so easy to 
use you can start composing and sending 
messages the first time you get online 

Designed for various experience levels. 
EasyPlex has a menu mode with simple, 
easy-to-follow directions for beginners, 
and it lets experienced users save time by 
working in the prompt or command modes. 
With EasyPlex. you can compose, edit, send, 
file, and take advantage of sophisticated 



options previously available only with more 
expensive services, 

CompuServe's EasyPlex lets friends and 
relatives, associations and club members 
communicate any time of the day or night. 
And small business owners, real estate 
professionals, insurance agents, lawyers, 
writers, etc can communicate quickly and 
simply — either interdfke or interstate. 
"ItlsEasy-'-JustPlex ill- 
Best of all. EasyPlex is available to all 
CompuServe subscribers And, along with 
EasyPlex. you get hundreds of valuable and 
entertaining computing options. Plus the 
assurance of belwiging to the largest fastest 

R**d*f Servk:* No. 230 



growing computer information service in 
the world and Itie premier supplier t^ 
business information to FOfH'UNE 500 
companies 

Start communicating! To buy a 
CompuServe Subscription Kit, see your 
nearest computer dealer To receive our 
informative brochure or to order direct, 
call or write: 

CompuServe* 

InlormatKjn Services. PO. Box 20212 

5000 Ariington Centre 8lvd . Columbus. Ohio 43220 

800-848-8199 

In Ohio, call 614.457-0802 
At H&R Block Company 




•Comrnodore 64 rt a 

trademjrii of Commodore EJectfonics. LTD. respectivtijr. 

TKI* product II manufjctured by Navirone *ndunri« 

for use on the Commodore 64 computer and i% 

not made, sponsored, authorized or approved 

by Commodore Electronlo. LTD. 



DON'T MISS THE BOAT! 
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^ Send me tweh e issues ot AHO V! ftr $ I9.9S 
( $26. "^S Canada & elsewhere). I unders- 



tand that I will be billed later. 



D 



Send me twenty-four issues <rf^ AHOY! for 
$37.95 ($49.95 Canada & ebewiiere). I 
understand that I will be billed later. 
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